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NON È UN EDITORIALE 


Tanto non lo leggerebbe nessuno! infatti son fin troppo sicuro che la maggior parte dei lettori, se non la totalità, non 
legge mai gli editoriali delle riviste. 

Ma allora perchè questa pagina? 

La ragione è presto detta. 

Quando girerete pagina ed comincerete a leggere gli articoli di questo numero di rivista Commodore e tutti \ 
numeri futuri, noterete che i listati dei programmi vengono riportati esattamente come li stampa la printer, e che 
tutte le simbologie special* sono state modificate in maniera tale che il lettore interessato ad un programma non sia 
costretto ad «aguzzare» gli occhi per poter interpretare questo o quel 
simbolo. 

Troverete allora al posto del cuoricino in negativo, che come sapete vuol dire pulisci lo schermo, questa 
espressione: [OLEARI: oppure ta lettera Q in negativo, cursore in giù, espressa con: l DOWN]: e così via per tutti t 

simboli di comando. 

Potrete notare, laddove esistesse la necessità, che ali'intemo delle parentesi quadre può esistere anche un 
numero: infatti se in programma ci fossero sette Q negative, nel listato apparirà! 7 DOWN], 

Qui di seguito viene riportata una tabelltna di cui è inutile spiegare il significato. Tenetela sempre a portata di 
mano. 
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Ah... dimenticavo. ... Grazie di aver comperato Commodore! Ne sarete sempre più soddisfatti. 


Gloriano Rossi 



FLUSSI RELATIVI 

di Gloriano Rossi (i 2 KH) 



Qualche anno fa, quando i prodotti Commodore non 
venivano commerci a Uzzati direttamente dalla Com- 
modore Italia, riìa da una azienda italiana, curavo 
per questa ditta una piccola rivista, un house organ 
chiamato "Pocket Pet'\ 

Furono pubblicate quattro edizioni, di cui due 
doppie, con una tiratura di 5000 copie, cifra notevole 
por quei tempi. 

Proprio su uno di questi numeri avevo trattato 
rargomento dei flussi relativi. 

Ancora oggi, e soprattutto oggi, ritengo valido ri- 
parlare di questi tipi di files di disco aggiornando 
quelle parole che avevo scritto allora. 

Le unità Commodore 

Una delle migliori caratteristiche dei prodotti 
Commodore risiede ne! fatto che tutto è compatìbile, 


o quasi. Infatti se io prendo un programma, scritto 
naturalmente in BASIC su un qualsiasi computer 
detta CBM e lo carico suctn altro qualsiasi computer, 
sempre Commodore, sono sicuro che "gira”. 

Quel “quasi” sta nei fatto che un Gommdore 64 
non possiede quei comandi specifici del BASIC 4, x, 
oppure esistono dei problemi per ciò che concerne 
alcune routine in linguaggio macchina e alcune loca- 
zioni di memoria. 

A conferma di ciò possiamo notare che esistono 
innumerevoli programmi per il C64 che arrivano, 
senza alcuna modifica, direttamente dal Pet 2001, 
dai CBM 3032 dal 4032. Queste macchine, infatti, 
avevano caratteristiche estremamente similari al 
C64; il BASIC, le 40 colonne di video, ('indirizzamen- 
to alle periferiche, ect. 

Ecco perchè il Commodore 64 è nato già con il 
piede giusto: Prima ancora di nascere aveva già un 
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numero elevato di programmi sia di giochi che ge- 
stionali, Solo dopo la sua nascita, le centinaia di pro- 
grammi esistenti, sono diventate migliaia, proprio 
per le caratteristiche di potenza che portano il C64 
ad un livello nettamente superiore rispetto ai prede- 
cessori. 

Tutto quanto appena detto vale naturalmente 
anche per le periferiche. Infatti un dischetto formatta- 
to da una unità floppy disc CBM 1541, può essere 
tranquillamente letto da una unità CBM 2040, o CBM 
2031 t o CBM 3040, o CBM4040 e.„ naiuralemente 
anche viceversa. 

J Ecco anche perchè quel mio scritto è ancora va- 
lido, ed ecco perchè ve lo ripropongo con le dovute 
modifiche ed aggiunte. 

Prima di iniziare a parlare direttamente dei feles 
relative, vediamo quanti e quali tipi dì flussi possono 
essere scritti e letti sulle unità disco Commodore 
1540, 1541 f 2031 , 2040, 3040, 4040, 8050, 8250. 


«FLUSSO DJ PROGRAMMA PRO (tutte le versioni 
BASIC e di DOS) Contiene tutto il programma ogget- 
to cosi come si trova nell'un ita centrale (2001 - 3032 
- 4032 - 8032 - VIC 20) la momento della SAVE; il file 
Gonfiente anche il puntatore specifico del program- 
ma stesso, l'indirizzo cioè dì dove dovrà essere ripo- 
sto in memoria centrale al momento del LO AD. 



•FLUSSO SEQUENZIALE, SEQ (tutte le versioni di 
BASIC e di DOS), Questo tipo di file è il più classico 
dei flussi trattati con qualsiasi elaboratore (anche 
non Commodore, naturalmente). 

Un record viene scritto uno dopo l'altro e parimenti 
un record viene letto uno dopo e l'altro, proprio come 
con un nastro magnetico. 

Tutti i records possono avere una propria lunghezza 
differenzte dalle lunghezze degli altri records del me- 
desimo file e non esiste alcun identificatore si siste- 
ma relativo al singolo records. 

Esiste esclusivamente un separatore- (CHR$ (13)) 
per identificare la fine del record e l'eventuale inizio 
del record successivo. 


.•FLUSSO RANDOM (USB) o accesso diretto (tutte 
le versoni BASIC e di DOS). La caratteristica princi- 
pale di un flusso organizzato con il sistema RAN- 
DOM è quella d* poter accedere a qualsiasi record di- 
rettamente tramite l'uso di una chiave, senza per 
questo dover essere costretti a leggere sequenzial- 
mente il file e quindi testare ogni record fino a trovare 
quello voluto. Un flusso organizzato con il sistema 
RANDOM è costituito in realtà da due fites. Il primo, 
quello più grosso e capiente, contiene tutti i records 
scrìtti sequenzialmente, cioè uno dopo l’altro. Il se- 
condo è molto più piccolo ed il suo contenuto è costi- 
tuito dalle chiavi di ogni record del fiel principale, con 
in più le coordinate di posizione. Queste coordinate 
sono espresse in traccia, settore e posizione del byte 
di inizio record. 

In sintesi viene riportato in questo file il numero 
del blocco ed il puntatore ove risiede o inizia il record 
interessato. 

Per tutte queste ragioni un file organizzato in 
questa maniera è chiamato più propriamente I.S., da 
Indexed Sequential, poiché i record vengono scritti 
sequenzialmente, ma ciò nonostante si può accede- 
re ad essi direttamente tramite indice. 

A partire da questo tipo di organizzazione, ìì sin- 
golo record, o i campi relativi ad una informazione 
completa, devono avere una lunghezza ben precisa. 

Se noi definissimo un flusso anagrafico organiz- 
zato in maniera LS. dovremo dire innanzitutto quan- 
to è lunga la chiave, poi quanto spazio occupa l'infor- 
mazione e quindi quanto grande (numero records 
stimato) dovrà essere il flusso. 
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Il vincolo di lunghezza è dovuto principalmente 
dalla necessità di poter eseguire degli update (ag- 
giornamenti) dei record, e quindi del file stesso. Infat- 
ti, se no» ad esempio non definissimo fa lunghezza 
record (cosa comunque non permessa) potremo es- 
clusivamente leggere o scrivere le inforamazioni, ma 
non potremo riscrivere un record dopo una correzio- 
ne. 

A seguito di un aggiornamento, un update, la 
lunghezza di un record potrebbe risultare più g rande 
rispetto la versione precedente e quindi, momento 
della riscrittura, si verificherebbe un accavallamento 
con il record successivo con conseguente perdita o 
danno di questuiamo. 

• FLUSSO RELATIVE, REL (DOS 2,xe BASIC 4 
oppure BASIC C64), Dopo aver capito o quantome- 
no assimilato ì concetti base del flusso SEQuenziale 
e del flusso I.S. possiamo passare alla descrizione 
del flusso RELative. 

Forse è più interessante questo tipo di organiz- 
zazione di un file rispetto a quelle precedenti in quan- 
to offre maggiori vantaggi rispetto alle organizzazio- 
ni SEQuenziale e indexed, soprattutto in determinati 
tipi di applicazioni. La differenza con un SEQue ozia- 
le stà nel fatto di poter accedere ai records sia se- 
quenzialmente che in maniera diretta. 

La differenza con un flusso RANDOM, sta nella 
mancanza del piccolo file delle chiavi e posizioni, 
nonché per il tipo di scrittura che viene utilizzato; in 
realtà esiste sempre un piccolo file che fornisce al 
DOS (Disc Operating System, sistema operativo del 



disco) l indirizzo fisico di ogni singolo record. 

Questo file è però nascosto, o per meglio dire è gesti- 
to direttamente dalf unità disco. Questo fatto ci per- 
mette di scaricare questo onere dalfoperatore e 
quindi dalla programmazione. 

Come si apre un flusso RElative su un sistema 
Commodore? 

Sui manuali d'uso delle varie unità disco, è spie- 
gato il sistema più semplice per l'opportuna apertura 
di un file RELative. Le spiegazioni, forse, non sono 
troppo chiare e quindi vediamo insieme: 

OPEN 1 ,8,2, ' nome del file, L, £, +CHR$ (LR) 

Il numero 1 sta per l'internai file number, nu mero 
interno del file; è proprio questo numero che serve al 
programma quando si esegue una PRINT # o una 
INPUT quale diretto riferimento all'apertura. Quin- 
di se scrìvessimo 87 al posto dell'1 tutte le PRINT# 

0 te INPUT# dovranno avere questo numero. 

Il numero 8 indica qual è la periferica alla quale 
si riferisce la OPEN; in questo caso è naturalmente 
l'unita a dischi floppy. 

If numero 2 sta ad indicare l'indirizzo secondario 
(secondary address) che ci servirà, in particolare per 

1 files relative, quale riferimento per il puntamento al 
record, vedremo comunque questo concetto in det- 
taglio più avanti. 

In nome del file dovrà essere un insieme di lette- 
re e/o cifre per un massimo di 1 6 caratteri. 

Nei files sequenziali si aggiunge a questo punto 
generalmente ", Sfl," per l'apertura sequenziale in 
lettura e W ,S,W ( " per una OPEN di scrittura. 

Nel caso dei files relative non si deve specificare 
se il file è aperto in Read o in Wrile, ma è sufficiente 
definire: 4, ,L/’ con raggiunta della lunghezza del re- 
cord, espressa però come CHR$, nell'esempio è 
stata posta una variabile LR proprio per indicare la 
lunghezza di ogni singolo Record, ad esempio 80. 

Con il BASIC 4. n tutto è ciò alquanto più sempli- 
ce, infatti: 

DQPEN# t , "nome del file", L80 

DOPEN # è un comando specìfico del BASIC 
4, infatti cl permette di aprire un file su disco senza 
dover specificare che si tratta dì unità floppy e nè tan- 
tomeno di definire il Secondary Address, 

Nome del file ha la stessa prerogativa che ab- 
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bìamo già visto. 

La lettera M L" seguita da un numero definisce la 
lunghezza record in questione. 

Ma torniamo al concetto che dice il flusso RELa- 
tive è un file nel quale ogni record occupa una speci- 
fica posizione su disco, detta posizione direttamente 
legata per logica al record stesso. Con l'organizza- 
zione RELative è consentito l 'accesso diretto ad ogni 
singolo record, senza dover essere costretti ad esa- 
minarne altri (SEQuenziale) oppure senza dover ef- 
fettuare ricerche preventive in un indice (RANDOM o 

I S->- 

Numero relativo del RECORD 

L'accesso e la scrittura di ogni singolo record 
posto in un file del tipo RELative sono effettuate tra- 
mite l'indicazione della posizione relativa dei record 
nell'ambito del file. Per meglio spiegarmi dirò che la 
meccanica o meglio la logica di indirizzamento è 
uguale a quella che adottiamo in memoria centrale, 
nella RAM t quando abbiamo dimensionato una ma- 
trice di N elementi. Ogni informazione (variabile nu- 
merica o alfanumerica) occupa una posizione defini- 
ta numericamente nella tabella. 

Questa posizione è calcolata a partire dall'Inizio 
del flusso stesso e a differenza delle DIM, non si ha 
la posizione zero, ma sì parte sempre dalia posizione 
definita con il numero uno. 

La posizione relativa di un record prende il no- 
me di "NUMERO RELATIVO''; questo numero non è 
un indirizzo di disco, ma è un valore intero e positivo 
che viene tradotto dal sistema nell'Indirizzo dei re- 
cord che è stato richiesto o che deve essere scritto o 
riscritto. 

Il Numero Relativo di Record potrà assumere un 
valore che vadala 65535, sempre che la capacità e 
le caratteristiche del file rispetti determinate regole. 
Infatti il DOS al momento della creazione dì un file re- 
lative prepara anche un massimo di 6 blocchi di di- 
sco dedicati allindi rizzamento diretto ai blocchi di 
dati, ogni blocco di può puntare direttamente a 120 
blocchi di dati; quindi i blocchi dei dati potranno esse- 
re al massimo 720, infatti 6 -120^720. e sapendo 
che ogni blocco di dati può contenere un massimo di 
254 caratteri (256 caratteri del blocco meno 2 di 
link= 254) potremo dire che un file relative potrebbe 
avere una capacità massima di 1 82.880 caratteri* 

É chiaro che questo TOP, questo numero mas- 


simo, potrà essere raggiunto con unità disco tipo 
8050 o superiori, mentre per le periferiche più usuali, 
tipo 1 541 o 4040, è la capacità del dischetto che fimi- 
fa le dimensioni del file (167*432 caratteri). 

Vediamo il perchè di questo numero: 

La capacità massima di un dischetto è di 683 
blocchi (683-256=174.848) di cui 19 sono dedicati 
alla directory, quindi ci rimangono 664 blocchi dispo- 
nibili per i dati, ma ricordiamo che per ogni blocco è 
possibile memorizzare 254 caratteri, quindi 
658-254 = 1 67. 1 32 . 

A questo punto possiamo modificare, o meglio 
adeguare, l’affermazione di prima riguardante il nu- 
mero massimo dì caratteri per disco. 

Allora per calcolare quanti record possono esi> 
sfere in un file relative occorre sapere che alla lun- 
ghezza definita di ogni record sì deve aggiungere 1 
in quando il DOS separa un record da un altro con un 
GHR$ (13) (il RETURN). 

Ora, se ho definito una lunghezza record dì 9 ca- 
ratteri dobbiamo calcolare 167.132 diviso 10 (9+1) 
per ottenere esattamente 16.713 record possibili. 

É bene ricordare anche che la lunghezza massi- 
ma di un record non potrà superare i 254 caratteri 
corrispondente alle dimensioni massime di un bloc- 
co dt dati. 

Il numero relativo di un record può essere parte 
del record stesso, oppure la risultante di determinate 
operazioni eseguite sul record o sui campi che lo 
compongono. 

Un sistema estremamente facile per determina- 
re il numero relativo di un record è quello di far coinci- 
dere questo numero con la chiave del record stesso. 
Se ad esempio, dobbiamo memorizzare un certo nu- 
mero di articoli, il codice deilarticolo potrebbe corri- 
spondere al numero relativo. 

Così l'articolo il cui codice corrisponde al numero 
005 occuperà la quinta posizione nei file in oggetto* 

Ma come si fa a puntare direttamente al singolo 
record? 

In BASIC 4 la dinamica è ancora una volta sem- 
plice: 

RECORD #n, (nR) 

INPUT# n, XS 

L'istruzione RECORD#, seguito dal medesimo 
numero della DOPEN, d permette di puntare diretta- 
mente al record richiesto; quindi l'istruzione IN- 
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PUT#, seguita da! medesimo numero della DO 
PEN, ci permette di leggere il record "puntato 1 ’. Nella 
medesima maniera si scrive un record nella sua po- 
sizione relativa: 

RECORD# n, (nR) 

PRfNT# n, X$ 

Il Commodore 64, può certo utilizzare il BASIC 
4 P ma solo come opzionale, mentre normalmente oc- 
corre sfruttare certi accorgimenti che il manuale d r u- 
so cì suggerisce. Vediamoli: 

In testa al programma, o comunque vicino alla 
OPEN del file relative, occorre aprire anche! I canale 
per i comandi diretti, in questa maniera: 


Tutto è facile se una ditta possiede ad esempio 
mille articoli e li ha numerati progressivamente da 1 a 
1 000; il flusso da creare sarà costituito da 1 0OO por- 
zioni di disco. Generalmente però il numero di codice 
di un articolo ben difficilmente parte dal numero 1 e 
prosegue in avanti. A maggior ragione raramente i 
numeri dì codice degli articoli sono assegnati se- 
quenzialmente e non tutti i numeri vengono asse- 
gnati a refativi articoli. 

Avremo ad esempio una ditta che produce 800 
articoli i cui codici vanno dal numero 00001 al nume- 
ro 2400. Sarà illogico assegnare 2400 porzioni dì di- 
sco per contenere quegli ottocento records; tre volte 
tanto il necessario. Per questo caso, ed altri analo- 
ghi, si utilizza una tecnica detta di randomìzzazione. 


OPEN 15,8,15 

A questo punto l'istruzione RECORD si trasfor- 


NH = INI (nR/256) 

NL = nR - NH - 256 

PRINT# 1 VP" CHR$ (SA) CHR$ (NL) CHRS (NH) 
Con questa istruzione che cosa abbiamo detto al 
DOS? 

Punta ("P") al record numero NH-256-rNL del file 
che ho aperto con indirizzo secondario (SA, Secon- 
dary Address). 

NH rappresenta la parte alta del numero record, 


La Tecnica di RANDOMÌZZAZIONE 

In pratica non si può dire che c'è una sola tecni- 
ca di randomìzzazione. Ogni sistema atto ad indivi- 
duare un numero relativo di record può essere chia- 
mato tecnica di radomizzazìone. 

Vediamo una tecnica, alquanto semplice che si 
adatta in maniera egregia con ['esempio riportato: di' 
vidiamo il numero dì codice per tre, infatti, guarda ca 
so, 2400/800 dà proprio 3. 

tl valore intero risultante dalla divistone corri- 
sponderà al numero relativo di posizione de! record 
neiJ'ambifo del file. 


mentre NL è la parte bassa dello stesso numero Ogni tecnica di randomìzzazione, però, genera 

Ma perchè abbiamo trasformato il numero re- o può generare inequivocabilmente dei records stno- 
cord in questa maniera? Per poter inviare l'informa- nìmt. Ben difficilmente, infatti, potremo avere un nu- 
zione relativa a! numero record all'unità disco, ai mero veramente unico assegnato ad ogni record 
DOS, possiamo utilizzare solamente la forma di Vediamo un esempio 
CHR$ e quindi sapendo che un CHR$ può contene- 
re solamente valori compresi fra lo 0 e il 255 dobbia- 
mo sfruttare il sistema de! Byte basso e del Byte alto, 
infatti provate con questo semplice programmino: 

IO INPUT "NUMERO RECORD " ; NR 
20 IF NR> 256*256 THEN IO 
30 NH= INT < NR/256 J 
40 NL»NR*NH#256 

50 PR INT "IL VALORE ALTO E’ "NH 
60 PRINT "IL VALORE BASSO E’ "NL 



70 PRINT 11 1 nfqtt I " ; Che cosa è successo? I numeri di codice segna- 

80 PRINT NH; "* 256 + ■' ;NL; *' * " ; k tr con l’asterisco occuperebbero il medesimo posto 
90 PRINT nh*256+nl neirambito del file; cosa naturalmente impossibile. 
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E se il campo della chiave non è un numero, ma 
una stringa dì caratteri, cosa dobbiamo fare? Anche 
in questo caso occorre creare una routine di rando- 
iniziazione eseguendo alcuni algoritmi sulle lettere 
deila strìnga in esame. 

La routine che riporto in esempio possiede l'uni- 
co difetto di aver bisogno di un file dimensionato il 
doppio del necessario, questo fatto però ci permette 
di avere pochissime possibilità di sinonimi, 

1 MF=4999: REM MAXFILE (ESPRESSO 
CON UN NUMERO PRIMO PILT MICIN 

0 AL NUMERO MASSIMO RICHIESTO 

2 FOR 1 = 1 TO 16 s SP*=SP*h-CHR$<32 
): NEXT : REM STRINGA DI SPAZI 

10 INPUT "LA STRINGA " ; 

11 XS^LEFT* (X$+SP$, IO) = REM PREND 
E IN CONSIDERAZIONE SOLAMENTE 

1 PRIMI DIECI CARATTERI DELLA 
STRINGA. 

20 REM LA STRINGA XS DEVE ESSERE 
DI LUNGHEZZA PARI 
100 FO— 0 

105 FOR K=1 TO LEN < X$ ) 

110 :FO=FC+( (ASC CMIDS (Xfc, K, 1> >-32) 
#1000) 

120 NEXT K 

130 Kl=<FO/MF>*CFO/MF> 

160 K 1 =ABS < K 1 > 

170 IFKDMF THEN K1=K1-MF: GOTO 160 
200 PRINT "IL NUMERO RELATIVO = U K1 

Ma anche con questo tipo di randomizzazione 
possiamo avere, come già detto, dei sinonimi dovuti 
più facilmente alta quantità dei caratteri presi in con- 
siderazione piuttosto che alia validità dell'algoritmo 
stesso. 

Che cosa fare allora in questo, nel precedente 
ed in altri casi analoghi? T utte le tecniche che si pos- 
sono utilizzare in questi frangenti si riassumono in 
unico termine: 


La Gestione dei SINONIMI 

Il sistema più utilizzato in programmazione è 
quello di dimensionare il file RELative con uno spa- 
zio di circa il 15% maggiore rispetto allo spazio in 
reaità necessario {nel nostro caso SOO x L15 - 920, 
arrotondato per eccesso 999). 
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Se dobbiamo scrivere il record con il codice 262 
e ci troviamo con la posizione 87 già occupata dal- 
l'articolo 261 1 dovremo riscrivere il record 87 con un 
campo in più che definirà la Nuova chiave di co! lega- 
mento (maggiore di 800, nel nostro esempio). 

figura n. 3 
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11 numero relativo 'MI aggancio” del record 
sinonimo t viene trascritto in coda al record 
di origine e la catena di records sinonimi 
pus' essere costruita nella stessa maniera 
degli esempi precedenti. Questo tipo di 
solution* risulta, in pratica, molto piu* 
vantaggiosa, 


In fase di lettura si dovrà inevitabilmente testare 
se il record, o meglio la chiave, posto nella posizione 
calcolata sia effettivamente quello voluto. In caso 
contrario si va ad individuare la chiave di collega- 
mento che ci porterà in una nuova posizione dei flus- 
so. 

Per certi tipi di applicazione, però, la zona dei si- 
nonimi potrebbe risultare ìnsufficente nonostante la 
valida capienza del file. Un caso tìpico con questo 
problema è quello di una gestione di nomi e relativi 
numeri telefonici. 

Il tipo di chiave che si vuole mantenere è quello 
relativo al nome. 

Potrebbe verificarsi che dopo la traduzione dei nome 
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i! numero relativo si abbiano dei records sinonimi in 
quantità statisticamente superiore alle previsioni, 

figura n. 4 
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Si scrivono allora i records nelle rispettive posi- 
zioni calcolate, fino a quando non si trovi il posto oc- 
cupato. 


figura n. 5 



1 J 2 3 * * * * » » 

Poi Lx lon* di exiqln* 

Il medesimo fluisti, organizzato in maniera 
relativo, dopo aver memorizzato un record 
al non imo di A » l'tl. 


Quando ciò avviene si ricerca la posizione libera 
più vicina e quindi si esegue la registrazione. Infine si 
va a scrivere il numero dì aggancio in coda al record 
precedente, il capo-catena 


Utilizzando questo sistema di gestione dei sino- 
nimi, può accadere che un record debba occupare 
una posizione (primaria) occupata però da un ele- 
mento di una catena di sinonimi. 

Per ovviare a questo inconveniente si va a ricer- 
care l'ultimo elemento della catena ''usurpante 1 ' e si 
registra il "malcapitato " nella posizione libera più vi- 
cina, riportando sempre il numero relativo nel record 
precedente. Avremo trattato il record "primario" allo 
stesso pari di un record sinonimo della catena. 


figura n. 7 
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In qu&sto caso li record t ha un numero 
relativo di record aguale a 2, ma la posizione 
calcolata risulta essere già* occupata {A], 
primo sinonimo <U A), Per questa ragione, il 
record X dovrà* essere posto nella prima 
posizione disponibile. 


figura n. 6 



Il ricordi a contlen* Il tinonim? Al c$nti*pe 

1 * potinone del 1 « pernione del 

xinoiumo Al tIboMbo a? 

Ecco , sempre lo stesso flusso, dopo aver 
inserito un nuòvo sinonimo di A, Il record A3» 


Una breve conclusione 

L'uso dei flussi relative visti in questa luce è da 
considerarsi terreno valido per i soli programmatori 
esperti, senza con questo sminuire o demoralizzare 
chi è alle prime armi, ma anzi deve essere un incenti- 
vo valido per migliorarsi e creare programmi sempre 
più sofisticati, 

É sempre e soprattutto con Tesperienza e nu- 
merose prove precedute da analisi approfondite che 
è possibile eseguire e sfruttare validamente una ge- 
stione di fìles relative. 
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STARTER KIT 

di Giancarlo die Cobelli 



LORGAN, in ogni caso ci pei 
mette già di divertici discretamente. 
L'unica limitazione, è logico, risiede 
nella mancanza di una vera tastiera. 

EFFETTI SONORI Questi mostra- 
no dogli esempi, sia pur banali, sul- 
l'uso del SI D e dato che sono sempre 
scritti in BASIC possono essere riuti- 
lizzati per rendere i propri programmi 
più "gustosi". 

Diversi premendo un tasto Qualsiasi 
si cambia il colore dì fondo 

Il programma di per se non è un 
gran che, ma può essere utile per 
sintonizzare perfettamente il monitor 
o televisore nonché il trimmer di re- 
golazione fine del colore posto al 
fianco de [l'uscita video per televiso- 
re. 

CHAR BOOT Permette la creazio- 
ne di un set di caratteri personali ed 
utili ai propri scopi. 

In confronto al programma pre- 
sentato su questo stesso numero 
della rivista, il CHAR BOOT possiede 
più comandi; permette di spostarsi in 


qualsiasi posizione oppure di ruotare 
il carattere creato nonché possibile 
memorizzare e richiamare i sets di 
caratteri creali per utilizzarli in altri 
programmi, 

H1RE5 LOADER Mostra in alta ri- 
soluzione il volto di una famosissima 
attrice. Ecco un ulteriore esempio 
delle grandissime capacità del 64. 
Peccato che l’esempio non sia stam- 
pabile 

SPRITE BOOT Permette di creare 
uno o più sprite sullo schermo (picco- 
li disegni che si possono muovere sul 
video). 

I disegni sono definibili punto 
per punto, su di'una griglia di 21 linee 
per 40 colonne, automaticamente 
creata. 

Una volta create, con gli appositi 
comandi, gli sprites possono essere 
memorizzati per utilizzarli con futuri 
programmi in BASIC od Assembler 

Ogni sprite usa 64 byte di me- 
moria ed è usualmente chiamata pa- 
gina. Con questo programma pos- 
siamo definire 1 50 sprite poste fra le 


locazioni di memoria da 2047 a 4059 
(pagine 32-63) e da 8132 a 16383 
(pagine 128-255). Per poter sfruttare 
gli sprites, m BASIC, si deve utilizza- 
re questa semplice routine: 

10 REM LOAD SPRITES 
20IFSW -1 THEN 50 
30 SW =1 

40 LOAD "SPRITEFILE", 8,1 
50 REM CONTINUAZIONE PRO- 
GRAMMA 

La variabile SW funziona da 
switch o da ffag e ci permette di sape- 
re, se uguale ad uno, se sono già sta- 
te caricale le sprite. 

Gli sprite possono: essere creati nel 
modo aita risoluzione o nei modo 
multicolore. Possono essere espansi 
in orizzontale e/o in verticale. Essere 
mossi sullo schermo per vedere l'ef- 
fetto visivo, 

EDUCATIVI 

BiTS AND BYTES Semplicissimo 
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programma che propone i fonda- 
mentali concetti del computer. Per 
esempio: bit, byte, peek, poke, esa- 
dedmale e binario. Dopo alcune 
schermate di lezione pone delle do- 
mande per vedere se è stato capito il 
concetto. Fa uso dì una buona scher- 
mata iniziale ed è utilissimo per chi 
voglia capire qualcosa su bit e byte. 

DISK COMMANDS Già rivolte ad 
un campo specifico, questo pro- 
gramma illustra r utilizzo del drive nei 
suoi, comandi principali in ambiente 
DOS 5.1 e Basic 4 0, Fornisce un 
ampia ed esauriente spiegazione di 
tutti i comandi rivolti alia unità disco. 

SNOOPY MAT5 Gioco educativo 
rivetto ai giovanissimi, permette loro 
dì imparare la matematica giocando. 
Il tutto consiste nef fornire al compu- 
ter la differenza numerica che esiste 
tra il barone rosso e snoopy, Diversi i 
livelli di difficoltà. 

A conclusione di questa lunga 
chiacchierata possiamo dire che II 
pakage offerto dalla Commodore da 
utilizzare sui- 64 è senza dubbio un 
ottimo prodotto in particolare rivolto 
agli operatori che sono sia alle prime 
armi, sia con qualche esperienza. 

Ad eccezione di alcuni program- 
mi veramente elementari, si può af- 
fermare che nel kit vengono offerti 
anche programmi che possono es- 
sere considerati di grande utilità. 

Un nuovo package permette di toc- 
care con mano e verificare le enormi 
capacità del Commodore 64. Si chia- 
ma Software Kit e contiene numerosi 
programmi applicativi e dimostrativi: 

1 ) giochi di intrattenimento; 

2} utility, ossia programmi che per- 
mettono dì sfruttare alcune potenziali 
delia macchina, alcuni dei quali pos- 
sono considerarsi molto interessanti: 

3) programmi dimostrativi di musica 
e grafica; 

4) programmi educativi che aiutano a 
capire il funzionamento dei compu- 
ter. 

Il package fornito su un supporto 
di dischetto è dotato di un ricco ma- 
nuale di spiegazioni; è anche dispo- 


nibile una versione su cassetta. In 
questo caso alcuni programmi, pret- 
tamente dedicati all’unità disco, non 
ci sono. 

Inserendo il disco e digitando 
LOAD" 8*", e premendo il tasto RE- 
TURN carichiamo il primo program- 
ma presente sul disco, in questo ca- 
so il "G64. MENÙ", del quale riportia- 
mo una versione "italianizzata”. 

Dopo aver digftato RUN il video 
mostrerà la directory (lista dei pro- 
grammi contenuti sul disco) ed in se- 
guito potremo fare quattro tipi di scel- 
te: 

1) vedere la pagina seguente di di- 
rectory, qualora esista; 

2) creare un nuovo file sequenziale 
della directory del disco nel caso in 
cui si sia inserito un nuovo program- 
ma oppure quando creare un nuovo 
dischetto con altri programmi; 

3) uscire dal programma; 

4) caricare ed eseguire il programma 
scelto. 

Le prime tre opzioni richiedono 
solo fa battitura di un tasto. Infatti è 
suffi cente premere uno dei tasti fun- 
zioni suggeriti in basso allo schermo. 
La prima opzione è chiaramente in- 
tuitiva. Infatti, se la lista dei program- 
mi esistenti richiede più pagine (vt- 
deate) è possibile visionarie una do- 
po l'altra e ritornare alta prima v idea- 
ta premendo nuovamente il tasto 
funziono 1 (fi) , 

La seconda opzione ci permette 
di utilizzare il programma su tutti idis- 
chiin nostro possesso. 

Cosa dobbiamo fare? 

La prima operazione di salvare il pro- 
gramma "C-64 MENU" come primo 
della directory del nuovo dischetto. 
Quindi si salvano i vari programmi 
che dovranno risiedere sul disco ed 
infine, eseguendo il medesimo "C64 
ME1SIÙ", si crea con F3 un nuovo file 
‘ DIRECTORY" (SEQ), ignorando la 
lista che ci propone inizialmente. 

La quarta opzione del program- 
ma ci permette di digitare il numero 
corrispondente al nome del program- 
ma che si vuol caricare ed eseguire. 


Battete quindi il numero corrispon- 
dente e premete il tasto RETURN 
quale conferma oppure il tasto DEL 
in caso di onore. 

Una caratteristica, se vogliamo 
piacevole, del “C64 MENÙ" è quella 
di visualizzare la directory in ordine 
alfabetico. 

Tutti i programmi il cui nome ini- 
zia con uno spazio non vengono li- 
stati, Ciò permette di ignorare quei 
programmi che richedono un carica- 
mento divereo da quello eseguito dal 
M C64 MENÙ", Spesso, infatti, trovia- 
mo programmi che necessitano di un 
LO AD diverso dal solito (LOAD" no- 
me programma”, 8,1 ) che, por “gira- 
re", devono essere richiamati da altri 
programmi detti “LCADER", Por 
esempio un programma che richiede 
if caricamento in una locazione di 
memoria diversa da quella di un nor- 
male programma in BASIC (locazio- 
ne $0800, $2049), va caricato con i 
comandi LOÀD" nome del program- 
ma”, 8,1 come già detto. 

Giochi 

I giochi dì intrattenimento inseriti 
in questo package non sono eccezio- 
nali, ma forniscono alcuni esempi di- 
mostrativi delle capacità della mac- 
china. Eccone alcuni. 

ARROW In questo programma il 
gioco consisto nel guidare un ser- 
pente sullo schermo senza mangiar- 
si la coda. I punti sì realizzano col- 
pendo i rettangoli che appaiono a ca- 
so sul video. 

LABIRINTO, Tramite la tastiera bi- 
sogna riuscire ad uscire da! labirinto 
che può assumere diversi formati a 
seconda delle difficoltà del gioco. Le 
dimensioni del fablrindo possono va- 
riare da 2x3 a 15x10. I comandi per 
muoversi all'interno del labirinto so- 
no: 

Tasto F - Muove uno spazio avanti 
{se possibile). 

Tasto L - Gira a sinistra (90 gradi). 
Tasto R - Gira a destra (90 gradì). 
Tasto H - "Help”. Quando si preme 
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"H" viene mostrata la vista del labi- 
rinto dell'alto visualizzando la nostra 
posizione corrente. 

LEMONADE. É un gioco d affari, se 
così può chiamare. Lo scopo del gio- 
co è quello di guadagnare più soldi 
possibili durante le dieci settimane di 
durata dell 'estate. 

Dopo aver dato il RUN, viene 
mostrato uno stand (come grafica si 
poteva fare di meglio) ed appaiono 
alcune domande del tipo; ‘ come ti 
chiami?* lo "zucchero ?” il “succo dì 
limone concentrato?" “quanti bic- 
chieri vuoi acquistare?". 

Con una base finanziara ed un 
listino prezzi stabiliti dal programma 
dobbiamo decìdere cosa acquistare 
e il prezzo di vendita della limonata. 
Quest' ultimo deve anche tener conto 
delia temperatura ambientale (visua- 
lizzata sul video costantemente) la 
quale vanadi settimana in settimana. 

Il tasto “H M ci permette dì ottene- 
re le istruzioni (in inglese come tutto il 
manuale ed ì programmi). 

Utility 

Le utility che ora verranno de- 
scritte sono quasi tutte molto impor* 
tanti per l'utilizzo del computer Com- 
modore. 

CHANCE DISK Permette di cam- 
biare il numero del disk drive (nor- 
malmente 8) per poter fare la copia di 
un disco tra due unità. 

COPY - ALL 64É la conseguenza 
logica del programma appena citato 
Dopo aver cambiato il numero ad 
una unità, bisogna caricare il Copy- 
Àll 64. Dopo aver dato il numero del 
sorgente e della destinazione, ad 
esempio 8 per il sorgente e 9 per il 
destinatario, possiamo scegliere 
quali programmi copiare; se viene di- 
gitato esclusivamente P- 1 ' verranno 
mostrati i nomi e copiati tutti i pro- 
grammi; con alcune lettere più v sa- 
ranno copiati tutti i programmi che 
iniziano con le lettere digitate; se non 
sì usa l'asterisco il programma richie- 


sto verrà duplicato sul disco dì desti- 
nazione. 

A questo punto verranno mo- 
strati tutti i programmi prescelti; per 
decidere quali copiare, digitare "Y* 
per si, o “N” per no. Alla fine della co- 
pia : Risposta: "Y" o "N" a seconda 
dei casi. 

Il programma chiederà se si vuole ef- 
fettuare una nuova copia 
t 541 Disk Backup, Permette dì co- 
piare fisicamente tutto il disco senza 
avere due unità. Seguendo le istru- 
zioni mostrate nel rìquardo "OPERA- 
TQR INTERVETION" è possibile fa- 
re la copia dì tutto il disco scegliendo 
tra due opzioni: 

1 ) digitando la lettera "B”, backup se- 
lettivo, il programma determina quali 
aree del disco sono scritte effettuan- 
do la copia solo di quest 'ulti me, 
(Questo è il più veloce fra i due meto- 
di); 

2) digitando la lettera “D\ backup 
completo, si effettua la copia esatta 
di ogni traccia e settore. 

Attenzione; il programma Bac- 
kup esegue sempre la formattazione 
di un disco dì iniziare a copiare queifo 
originale. 

DUMP. Questo programma cì mo- 
stra sullo schermo un programma 
che risiede su disco in formalo esa- 
dedmale. Ogni riga di schermo con- 
terrà 1 0 byte. 

Sulla sinistra di ogni riga trovia- 
mo una numerazione decimale che 
ci fornisce la quantità dei bytos pre- 
senti fino aquel punto. 

Esempio: 

0000; 08 50 00 00 01 00 00 00 00 
0010; 00 07 0F 00 04 1 A 00 00 00 

LQAD ADDRESS. Interessante uti- 
lity che mostra l'indirizzo di carica- 
mento di un programma residente su 
disco. Normalmente i programmi sul 
Commodore 64 iniziano dalia loca- 
zione di memoria 2049 Questa routi- 
ne serve per sapere se un program- 
ma deve essere caricato normal- 
mente od in maniera speciale (cioè 


LO AD" nome programma" ,8 oppure 
se si deve caricare con LO AD* nome 
del programma", 8, 1 ), 
SUPERMON64. VI Questo utility, 
molto interessante, permette di pro- 
grammare il Commodore in linguag- 
gio macchina. Con l'aiuto di uno dei 
numerosi libri che trattano del siste- 
ma operativo e del linguaggio as- 
sembler del microprocessore 6502 e 
6510 potremo entrare nel fantastico 
mondo del linguaggio macchina che 
permette di sfruttare a pieno le possi- 
bilità del Commodore 64 (vedi i nu- 
merosi giochi in commercio che nor* 
malmeni© sono in LM). 

Da notare che tutti i comandi devono 
essere seguiti dal tasto dì RETURN e 
tutti i valori numerici devono essere 
inseriti in codice esadecimale. 

PET EMULATOR, Molto utile questa 
emulazione del PET che permette di 
utilizzare sul Commodore 64 quasi 
tutti ì programmi PET esistenti, 

Normalmente il C64 carica pro- 
grammi BASIC dalla locazione di 
memoria 2048 alla 40359 e gestisce 
lo schermo daita 1024 alla 2048. L'e- 
mulatore riconfigura la memoria del 
64 trasferendo l'area di memoria del 
BASIC alla locazione di memoria 
1024 fino alla 32767 e la gestione 
dello schermo alla 32768 fino alla 
36863. 

Il programma va caricato con l’I- 
struzione LOAD tr PET EMUALTOR", 
8,1 e fatto girare eseguendo il co- 
mando SYS 1 2 '4096. La spiegazio- 
ne del perchè daini ”, nella si stassi 
di LO AD è già stato spiegato prece- 
dentemente, infatti il PET EMULA- 
TOR viene ed ri numero della SYS 
corrisponde all'Indirizzo di memoria 
da cui parte il programma. Ora tutte 
le POKE e te PEEK dello schermo, 
dell’area BASIC sono accesigli diret- 
tamente da tastiera. Le più usate di 
queste POKE sono: 

Poke 59487, 16 = abilita il modo mu- 
sica 

Poke 59464, X - decide la frequen- 
za 
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Poke 59466, Y = decide il range di 
frequenza 

Poke 59468, Z - con Z=12 modo 
grafico 

con 2=14 modo 

minuscolo 

inoltre tutte le POKE comprese 
tra gli indirizzi 0000 e 1023 quando 
possibile sono tutto utilizzabili. Le 
POKE non interpretate daranno un 
messaggio di errore del tipo 'il legai 
quantity erro r\ C'è da fare attenzione 
a caricare i programmi in linguaggio 
macchina perchè molti non li prende. 

DOS WEDGE. Questo programma è 
anche chiamato DOS 5.1 . ed è utiliz- 
zato per abbreviare di molto le comu- 
nicazioni con il drive. Esso provvede 
a tradurre i comandi BASIC in co- 
mandi abbreviati con una simbologia 
speciale che più avanti vedremo, li 
programma sé carica con le Istruzioni 
LOAD” DOS WEDGE", 8,1 ed ai po- 
sto del RUM la SYS52224. 

Il DOS supporta i comandi del ti- 
po (copy, scratch, renarne, new a 
disk), un comando per leggere la di- 
rectory ed i comandi per caricare e 
salvare i programmi. 1E DOS può an- 
che creare e maniere volumi di pro- 
grammi (gruppi dì programmi). Ogni 
comando ìniza con un carattere sé- 
guito poi da! nomo del programma 
così come mostrato: 
il segno “ " o u " sostituisce i se- 
guenti comandi BASIC: 

10 OPEN 15, 8,15 
20 INPUT #15, B$, C t D 
30PRINT # 15. B$ p 0, D, 

• $ (drive): (nome del programma) 
O ([volume]) 

Questo comando legge la directory 
del disco e la stampa sullo schermo. 

Se viene specificato il nome del 
programma solo quel programma 
verrà mostrato: se alcune lettere se- 
guite da tutti i programmi che ini- 
ziano con quelle lettere, se solo 
tutta la directory Se il [volume] è spe- 


cificato saranno mostrati solo I pro- 
grammi contenuti nel volume, 

@ N (drive): nome del disco, id 
Formatta il nuovo disco con il nome e 
r identificatore specificato, 

(drive): nuovo programma = 
vecchio programma 
Sostituisce il vecchio nome del pro- 
gramma con in nuovo indicato. 

S (drive): nome programma (*) [vo- 
lume] 

Cancella il programma specificato 
dal comando. Per vedi sopra la 
descrizione, 
eui (drive) 

Questo comando resetta II DOS. 

<§> I (drive) 

Iniziai izza il drive 

Con questo comando serve per dis- 
abilitare il programma DOS. 
i nome programma 
Corrisponde in BASIC al comando 
LOAD" nome programma", 8 
% nome programma 
Corrisponde in BASIC ai comandi 
LQAO” nome programma", 8 1 
FRECCIA IN ALTO nome program- 
ma 

Corrisponde in BASIC ai comando 
LOAD" nome programma”, 8 
FRECCIA A SINISTRA nome dei 
programma 

Corrispondente in BASIC al SAVE” 
nome programma”, 8 
É evidente che II programma DOS 
una volta caricato resta sempre in 
memoria anche se vengono caricati 
altri programmi, a meno che questi 
ultimi non partano dalia locazione dì 
memoria 52224. Per cancellare in 
maniera definitiva il DOS WEDGE si 
utilizza la SYS 64738, cioè il System 
reset da software. 

AMORT TABLE. Questo program- 
ma fornisce una tavola di ammorta- 
mento dei prestiti di qualsiasi genere. 
Il programma pone cinque domande 
del tipo: 

1) interesse rate annuo; 

2) numero dei periodi di interesse per 
anno; 


3) numero di pagamenti per anno; 

4) ammontare del prestito; 

5) durata del prestito negli anni; 

Dopo aver risposto alle cinque 
domande vengono mostrate nelle 
colonne: il numero dei pagamenti, gir 
interessi sul debito, le quote di paga- 
mento ed fi debito insoluto. 

L'unico neo di questo program- 
ma risiede nel fatto che è stalo stu- 
diato per il mercato monetario cana- 
dese, Ma ciò non dovrebbe spaven- 
tare: infatti è stalo scritto interamente 
in BASIC e quindi sono possibili le 
opportune modifiche. 

MORTAGAGE Questo program- 
ma calcola le informazioni essenziali 
al pagamento ed alla scadenza delle 
rate di una ipoteca. 

Dopo aver risposto a tutte le do- 
mande poste dalia macchina verrà 
mostrato sul video l'ammontare degli 
interessi e pagamenti, rammentare 
mensile. Purtroppo anche per questo 
programma vaie il discorso fatto pri- 
ma per il "Amori Table”, 

CALENDAR. Calendario perpetuo 
dal 1 752. Basta inserire data, mese, 
anno e.... lasciarlo sempre acceso. 

MUSICA E GRAFICA 

ORGAN II programma dimostra le 
■'mostruose” capacità dei circuito in- 
tegrato chiamato SID contenuto neE 
Commodore 64. 

Dopo averlo caricalo in memoria 
ed avere comandato it RUN, lo 
schermo mostra una tastiera con 
specificato io lettere da utilizzare, i 
comandi per cambiare le ottave (4) 
ed il suono (3 suoni più la batteria). 

Con la sbarra di spazio scegliete 
il suono polifonico o d 'assolo, 

É vero! Anche in commercio sono re- 
peribili dei sintetizzatori forse o sicu- 
ramente migliori, ma qui abbiamo un 
computer che fa egregiamente an- 
che questo senza avere nulla a che 
invidiare ed apparati dedicati di costo 
uguale o anche leggermente supe- 
riore. 
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0 liUMBÌftì a SSBBtST.t 

sfs;- 

8 

" CS4-MENU" 

PRG 

2 

11 DIRECTORY 

SEQ 

4 

"CHANGE DISK" 

PRO 

10 

"C0FY-flU_64" 

PRO 


"DUMP" 

PRO 

2 

"LORD RDBR " 

PRO 

10 

"SUPERM0NS4. VI" 

PRG 

■-è 

"COLOR TEST" 

PRO 

4 

"CHflR BOOT " 

PRG 

32 

" CHRP EDITOR" 

PRG 

1 

" ROTATE . DRT fi " 

PRG 

o 

" STANDARD. SET" 

PRG 

9 

" COMPUTER. SET 5" 

PRG 

4 

"HIRES LOADER" 

PRG 

4 

'■ VMSUF'F" 

PRO 

32 

M GARBO" 

PRG 

3 

"SPRITE BOOT" 

PRG 

43 

“ SPRITE EDITOR" 

PRG 

2 

" SCROLL . DATA " 

PRO 

o 

" SAMPLE SPRITES " 

PRG 

9 

"ORO AH" 

PRO 

-> 

i 

"SONG - DIMIE" 

PRG 

2 

"SONG - TWINKLE" 

PRG 

6 

"SONG - YANKEE" 

PRG 

o 

"SOUND - ALIEN" 

PRG 

2 

"SOUND - BOMB" 

PRG 

£Ì 

"SOUND - GUNFIRE" 

PRG 

tL 

"SOUND - PONG" 

PRO 

. O 

"SOUND - RflVGUN" 

PRG 

l 

"SOUND - SIREN " 

PRG 

\ 

"SOUND - CLAP" 

PRG 

32 

"ARROW" 

PRG 

2 

"DEMO JOYSTICK" 

PRG 

37 

"LABYRINTH" 

PRG 

51 

"LEMOHRDE" 

PRG 

4? 

"BITS AND BYTES" 

PRG 

5 

" BYTSPRITES" 

PRG 

51 

"SNOOPY MATH" 

PRG 

39 

"AMORT TABLE" 

PRG 

43 

" MORTO AGE" 

PRG 

■ 1;0 

"CALENDAR" 

PRG 

17 

" PET EMULATOR" 

PRG 

4 

" DOS WEDGE " 

PRG 

44 

"DISK CMDS " 

PRG 

28 

"1541 BACKUP " 

PRG 

0 BL.OCKS FREE- 



Figura n> 1 

Contenuto della directory del disco fornito con il pacchetto 
STARTER KIT. È da notare che esiste un solo file sequen- 
ziale che contiene il direttorio completo dei programmi che 
non in iziano con lo spazio , 


100 REM ************************ 
******** 

HO REM * 

* 

120 REM * AUTOMATIC MENU PER DIS 
CO * 

130 REM * 

* 

140 REM * '(DEVE ESSERE SEMPRE IL 
PRIMO * 

150 REM * PROGRAMMA DI OGNI DIS 
CO) * 

ISO REM * SI CARICA CON LOAD" 
:**' , S * 

170 REM * 

* 

ISO REM ************************ 
******** 

190 POKE 532 SO, 6 s PDKE 53261, 6: DI 
M TEt* USO) SPRINT *' CCLEARI 11 C 
HR*<14> :DI=8:C=1 
200 OPEN 6,01,0, M I DIRECTORY 

11 s OPEN 15, Dr, 15 3 INPUT# 13, EN 
*,ED*,ET», ÉS* 

210 INPUTttfl, DN*3 IF EN* <> "CO" THE 
N CLOSE 8 s CLOSE 15:p0T0 540 
220 INPUT#8, TB$(C) : IF ST=S6 THEN 
250 

230 IF ASCI LEFTS ( T£t$ (C),1))=1Q 
THEN TBS(C)« RIGHTS(TB$(C), 
LEN(TBìMC) >-l) :GDTO 230 
240 C=C+i:GOTO 220 
250 CLOSE 6 s CLOSE 1 Ss M«C-1 = TB* (C 
) 11 s LI " CRVSI " * FOR C-l TO- 

40 3 LI S-Ll $+'* 41 SNEXT 
260 Lt*=Ll$+"CRVOFFI " :A=1 
270 POKE 53281, 1 SPRINT 11 COLE ARI C 
BLEU] " ; s FDR C=LTQ 4 SPRINT L 
1S-SNEXT s FOR C=1 TO 2SPRINT 
» EBLEU1 "LI*; 

280 NEXT SPRINT H CH0ME1 11 * 

290 PRINT SPC<3) " CRVS3 CBLEU3 .. 


300 PRINT TflBtS) ELISIONE s AP 
RI LE 1984» 

310 PRINT SPC<5) "DISCO : CROSSO 
r'DN$ SPC (3) LI $ ; 

320 FOR C=A TO A+14=PRINT " CRVSI 
» RIQHTSC 11 + STR$CC),5)” 
CRVQFF3 CBLEUI M TB* CO SPC <29 
- LENCTB* (C) ) ) ; 
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330 PRINT " CROSSO] CRVS3 ";:N 

EXT «PRINT LI*; 

340 FOR fi=l TO 2 SPRINT "CBLEU3 H L 
1* ; s NEXT SPRINT LEFT*(L1*,4 
0) " CUP] " 

330 PRINT SPC (5) " CRVS3 C2 UP] . 1 
= PER CONTINUARE IL LISTATO" 

360 PRINT SPC (IO)". 3 = PER CREA 
RE LA NUOVO DIRECTORY"; 

370 PRINT SPC (6) " . S = PER USCIR 
E DOL PROCsRfiMMO CBLEU] CH0WE3 " 
360 POKE 2023, 160 IPOKE 562, 56: PO 
KE 198,0:6*="" 

390 SET fi* : IF 0*="" THEN 390 
400 IF ASC (fi*) =13 THEN 490 
410 IF A*="." THEN 470: REM " FI 
****** 

420 IF fi*="." THEN 530: REM » F3 

****** 

430 IF fi*=" THEN POKE 53280,6: 
PRINT " CCLEfiR] C3 DOWN] CBLEU3 
SYS6473Q CHDME] " : END : REM " F 

5 ****** 

440 IF ASC (fi*) =20 THEN B*^'" :PR 
INT " CHOME] C4 DOWN] CROSSO] CR 

VS] CRVOFF] " : B* = GOTO 39 

O 

450 IF fi*("0" OR fi*) "9" DR LENI 
B*)=3 THEN 390 

460 B*=B*+fi*: PRINT " CHOME] C4 DOW 
N] CBLEU] " B* : GOTO 390 
470 IF OM THEN fl=i:GOTO 270 
480 A=C s GOTO 270 

430 IF VAL (B* > > M THEN PRINT " CH 
OME3C4 DOWN] CBLEU] ???" : FOR C 
=1 TQ 1500: NEXT :fi*= CHR$<20 
> : GOTO 440 

500 POKE 53281,6: POKE 53280, 14: P 
RINT » CRVOFF] CCLEfiR] C3 D0WN3 
CBI ANCO] LOAD" CHR* (34) TB* ( V 
BL(B*>) CHR* (34) ", 8" 

510 REM SIMULAZIONE ESECUZIONE 
TASTO RETURN E ISTRUZIONE RU 
N E RETURN 

520 PRINT " CHOME] " SPOKE 138,4spa 
KE 63 1,13* POKE 632,82:P0KE 6 
33, 213: POKE 634, 13SEND 
530 PRINT " CHOME] C4 DOWN] CBLEU] W 
fi IT” 

540 OPEN 8, DI» 0, " *0" : FOR C=1 TO 
8: SET #8, A4: NEXT :C=1:DN*="" 


:FOR C=1 TO 16 

550 GET #8, fi* : DN*=DN*+A* : NEXT :G 
ET 48, fi* : GET #8, fi* : DN*=DN*+" 
" : GET #8, fi* 

560 DN*=DN*+fi* : GET #8, fi* : DN*=DN* 
+fi* : GET 48, fi* * GET 48,AS:DN*= 
DN*+" "+fi* 

570 GET 48, fi* : DN*=DN*+fi* : GET 48, 
fi* ! C= 1 

580 FOR fi=l TO 4 : GET #8, fi*: NEXT 
ip|\l*=" " : TY*=" " 

590 GET #0,PSsI F ST <> 0 THEN 660 

600 IF = THEN 680 

610 IF PSC<P$M>34 THEN 590 

620 GET #8,fì$:lF PSC<ft$)<>34 TH 

EN PN$— PN$+P$ = GOTO 620 

630 GET #8, Pi : IF PSC<P*)=32 THE 
N 630 

640 TY$=TYS+A$:GET &S.P$:IF PS O 
JT " THEN 640 

650 IF LEFT$CTY*,3) <> J, PR0 M THEN 
580 

660 IF LEFT* (PN*, 1) = 11 l# THEN 56 
O 

670 TB*<C>=PN$*C=C+1 s IF ST=0 THE 
N 580 

680 CLDSE B £ OPEN 15, DI, 15, "3 = 
DIRECTORY 11 ! CLDSE 15 

630 Z*=" M S OPEN fl 

,01,8, 11 i DIRECTORY , 3, UT 
:PRINT#8, DN* 

700 FOR Q=1 TO C-l ; C*=Z* : FOR 3=1 
TO C-l:IF THEN 72 

O 

710 C$=TB*(B) 5 D = B 

720 NEXT :PRINT#B,C$STB$(D)~ZS:N 
EXT :CL03E 8SCLR sSOTO 190 


Figura n. 2 

L' AUTOMATIC MENU qui listato vi potrà servire per acce- 
dere in manfera semplice e organizzata ai programmi resi* 
denti sui vostri dischetti. 


10 PRINT " ECLEPR] 11 :POKE 53280, 0*P 
□KE 53281,0 

12 PRINT " CRIGHT3 CRVSJ CVERDEI INDI 
RIZZO DI PARTENZA DI UN PROGRP 
MMP ,f 

15 PRINT " C DOWN! PROGRAMMA 
Q2" ; 

16 INPUT F$ 



16 PRINT 11 CDOUIN! CVERDE! INDIRIZZO 
DI PARTENZA: [ROSSO! " ; 

20 OPEN 1, 8, 3, M 0* M + F* 

30 GET #1,L$ 

40 GET # 1 , H$ 

50 X$=B*:GQSUB 100:H=X*256 
60 X*=L* : GOBUB 100 s L-X 
70 PRINT H+L M [VERDE! “ 

SO CL08E 1 
90 END 

100 IF THEN X-0 * RETURN 

110 X= ASCCX4Ì 
120 RETURN 


Figura n , 3 

Questo breve ti stato dì programma vi può fornire sempre 
! indirizzo di partenza, in memoria, di un qualsiasi altro pro- 
gramma residente su disco. 


1 REM ************************** 
******* 

2 REM * 

* 

3 REM * STAMPA E SA DEC INALE DI FI 
LES * 

4 REM * 

* 

5 REM ************************** 
******* 

10 PRINT [OLEARI 11 

11 POKE 53280,0= POKE 53201,0 

12 PRINT TAB<5) " IRVS1 [R0SS03DUM 
P DI UN FILE IN ESADEC IMALE EDO 

mi n 

14 C=0= H$=“ O123456709ABCDEF'* : T- 

1 00000 

16 PRINT rl FI LE 11 ■ * INPUT F*: OPEN 
i,s,3,f$ 

26 PRINT M L ROSSO! ,l RIGATA { STR* 
(T+C) ,5) ; M C VERDE! s “ ; 

26 POR 1 = 1 TD 10: GET ^1,X$ 

30 C=Oi: IF XS=*' " THEN CHR$ 

(0) 

32 IF ST AND 64 THEN 90 

35 X — ASC(X^): H= INTCX/16): L = X- 
<H*16) 

36 PRINT MID$ (H$, H+l, 1 ) * MID$(H 

$, 1 + 1 , 1 );" " ; 

41 IF C/240= I NT (C/240 > THEN G 
□SUB 100 

42 NEXT : PRINT : GOTO 26 
90 CLDSE 1 


100 GET A$: IF A$= lr 11 THEN 100 
110 RETURN 


Figura n. 4 

Questa utility visualizza in esaóecimaie un qualsiasi fife re- 
sidente su disco. Sarà sufficiente fornire il nome e sullo 
schermo apparirà il contenuto richiesto. É stata aggiunta 
una piccola routine di fermo quando il video è riempito. 


1 ODO 
1003 

1005 

1006 
1007 

1010 

1020 

1030 

1040 

1050 


1 060 
1070 
1 OSO 


1 090 

1630 

1640 


1660 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 


REM **D*****************C** 
REM ** JOYSTICK DEMO PRG ** 
REM **D*****************C** 


PRINT 11 [OLEARI " : POKE 5326 
0, Oa POKE 53261, 0 
GQSUB 2000: PRINT T AB (12) 
IF JV=1 THEN PRINT “ CVER 

DEI ALTO 
IF JV=2 THEN 

BÙI B A S S O 
THEN 
I S T 
THEN 


IF JV=4 
LL01S I N 
IF JV=5 
NC3 ALTO & 

I F JV=£ 
ESTE] BASSO 
IF JV=S 


[DOWN! " 
PRINT « CRQS 
C DONNI » 
PRINT 11 [GIÀ 
R A CDGWNI 11 
PRINT n CARA 
SINISTRA t DOWN! " 
THEN PRINT tr [GEL 
& SINISTRA CD0WN1 11 
THEN PRINT 11 CBIA 


NC03 DESTRA CDOWN 2 " 

IF JV=5 THEN PRINT " CGRI 

GIOII ALTO & DESTRA! DONNI " 

IF JV=10 THEN PRINT " CMAR 
RIBASSO & DESTRA IDOWNI " 


IF FR= 16 THEN 1010 
PRINT TAB < 12 ) 41 C VERDE! ** CR 
OSSO! S CAZZURD P CVIOLA! A CBu 
EU! R IBI ALLO! Q [VERDE! ** CDOW 


N! " 

GOTO 1O10 


REM *** JOYSTICK ROUTINE 

*** 


POKE 56322, 0 
JV= PEEKC 56320) 
FR=JV AND 16 
JV=15- C JV AND 15) 
POKE 56322, 255 
RETURN 


Figura n. 5 

Volete provare il vostro Joystick? Ecco if programmino 
ideale dai quale ricopiare, per vostn programmi, la routine 
di riconoscimento movimento (righe 2000 in poi). 
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UN LIST PIU’ FACILE 

di Tullio Spezia 

(I2TZS) 


Quante volte esaminando un programma direttamente sol 
video abbiamo espresso il desiderio: «Che bello se si potesse 
fermare il LIST e poi ripartire!». 

Quando si studia un programma per correggerlo, si è forzati 
a fermare ogni poche linee lo scorrere del listato sullo scher- 
mo, semplicemente premendo lo «stop», ed ogni volta, di 
conseguenza, bisogna poi ripetere la richiesta al computer, 
digitando «LIST » seguito dal numero della linea da cui si vuole 
ripartire, ed eventualmente la lineetta per l'indicazione di con- 
tinuare automaticamente con le linee successive 
Non sarebbe più beilo fare tutto il LISTato con una unica 
richiesta trattenendo fermo il passaggio del programma con 
un tasto apposito (mentre con il CTRL ta si rallenta)? 

Riferendoci al Commodore C-64* H pensiero va subito al 
tasto SHIFT/LOCK. quello che normalmente viene ignorato 
Od usato al più occasionalmente nei word processor. Una 
volta azionato, se ne sta tranquillo ad aspettare di essere 
disinserito e ci lascia le mani completamente libere; inoltre è 


adiacente al tasto CTRL, che potremmo toccare con dito me- 
dio della sinistra, e con il dito indice inserire lo SHIFT/LOCK, 

Per fare ciò occorre introdurre nel Commodore questa nuo- 
va funzione, non in BASIC, purtroppo, ma in linguaggio 
macchina. 

Nonostante ciò, il programma che segue è stato scritto in 
BASIC per facilitarne l'utilizzazione, ed ha la particolarità di 
«nascondersi» una volta che viene dato il RUN (il NEW nell'ul- 
tima linea ha effetto solamente sulla parte in BASIC, ma non 
su quella in linguaggio macchina che a quel punto è già locata 
nella sua giusta posizione). 

Sembrava una cosa tanto lunga ma invece questo è tutto 

Sicuramente questa piccola routine vi diventerà subito ami- 
ca. Infatti è facilmente caricabile dal registratore o dal disco 
per la sua brevità, ed una volta che è nel computer, vi rimane 
finché questo non venga spento o non subisca la SYS64738. il 
System reset, 

Ecco il testo del programma: 


iO ft=232: e-PEEK<5E>-! : C-P££K<77 
5) s C <167 THEN 1 IO 
20 ^DKE 55, Rt POKE POKE 56, 

B * PQKE 52, B t - [ GKE 774. Ri POKE 
775 r B 

30 F=jft+B*256 
40 G=F+22 
50 IF GOTO SO 

SO RERD POKE F, D 
70 F“F-t*l : GOTO SO 
SO POKE F, C 

90 DfìTR 72,152,72,32,159,255,169, 

1 T 44, 141, 2, 208 , 246 
100 DAT - 0, X 33, 198, 104, 168, 104 

, 76, 26 
1 1 0 'db W 


PO - Commodore 


Ora il LIST è più facile vero? Allora . buon lavoro! 


RTTY MANAGEMENT 
SYSTEM 


di Ambrogio Mainim (IW 1BBG) e Paolo Denaro (I 2YNA) 


Non poteva certo manca re , in questo 
primo numero di Commodore un pro- 
gramma interamente dedicalo a 
quella strana categoria di radioama- 
tori cfie, affascinati anche da quelli 
che possiamo definire ' pruriti infoi- 
matici", mani al portafoglio, hanno 
acquistato un home-computer: il 64. 

Contrariamente a quanto possa 
sembrare a prima vista, ciò che pro- 
poniamo qui di seguito è un program- 
ma strutturalmente nuovo anche se i 
comandi operativi sono volutamente 
rimasti pressoché uguali (per como- 
dità di apprendimento) a quelli usati 
da altri col laudati ss imi programmi 
“sui generis". 

Riteniamo opportuno sottolinea- 
re alcuno particolari carattenstiche 
che rendono il programma RTTY più 
rispetto versatile ai suoi predecesso- 
ri. 


Caratteristiche 

* Il programma prevede la memoriz- 
zazione di un testo, durante la fase dì 
ricezione. La capienza di questo ma- 
gazzino è di oltre 2500 caratteri. 

Riteniamo che detta capacità è 
in grado di soddisfare il più logorroico 
degli “aficionados” della RTTY. 

* L'editing del buffer di tastiera viene 
visualizzato sulle tre righe nella parte 
inferiore dello schermo, con scrolli ng 
orizzontale. 

Questo sistema permette di evi- 
tare che uno scroiling normale metta 
fuori campo una riga intera di mes- 


saggio. Il messaggio così digitalo po- 
trà anche essere corretto prima di es- 
sere inviato in trasmissione. 

• La chiamata ripetuta automatica- 
mente (CQ CQ CO DE.....) viene 


istantaneamente interrotta con la 
commutazione in ricezione di tutto il 
sistema allorquando vengono rice- 
vute almeno quattro serie di RY. 

• Per quel che riguarda l’uso dei mo- 


Tabellina comandi in ricezione 


FI 

Commuta in trasmissiono. 

F2 

CG Automatico (Sì blocca alla ricezione di almeno quattro coppie di RY oppure 
di un HOME (comando manuale). 

F3 

Menù velocità disponibili. 

F4 

Libero. 

F5 

Commuta il LTRS (in caso di GRM). 

F6 

Cambio BAUDOT -ASCII e viceversa, 

F7 4 - N 

(Numeri da 0 a 9), Memorizzazione di messaggi volatili o estemporanei (max 
255 cad). 

Per volatile si intende una memorizzazione che si mantiene solamente fintanto- 
ché la macchina, il C64, rimane accesa, oppure non vengano sovrapposti altri 
messaggi. 

FB 

Libero. 

Freccia a sinistra 

Memorizzazione volatile del nominativo del corrispondente. 

Lira sterlina 

Cambia il testo al CQ automatico (detto cambiamento è volatile. Questa opzio- 
ne è utile durante i Contest). 
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di di emissione e delle velocità ricor* 
diamo che esiste una normativa ben 
precìsa che ne regolamenta l'utiliz- 
zazione; pur tuttavìa il programma 
consente ta trasmissione e la ricezio- 
ne in BAUDOT e in ASCII anche a 
velocità diverse da quelle standard. 

Al fien di facilitare la scella dei 
modi e delle velocià, è stato predi- 
sposto un menù speciale di rapidissi- 
ma consultazione. 

* Durante fa trasmissione è possibile 
scegliere il modo di invio del messag- 
gio; 

a) Letter by tener Ogni singola lette- 
ra viene trasmessa nello stesso 
istante in cui viene digitata. 

b) Word model La trasmissione è at- 
tivala dallo 14 Space" o dal ' LINE 
FEED" per cui se la parola editata 
non è seguita da uno dei comandi ci- 
tati, stazionando nel buffer di tastie- 
ra, può subire qualsivoglia modifica o 
correzione prima dell em missione. 

Il sistema è stato dotato anche 
delia capacità di trasmettere ciò che 
appare sul video. Questo fatto può 
diventare utile quando si voglia avere 
la possibilità di far "vedere” all'inter- 
locutore come lo si riceve. 

É stato previsto un controllo 
speciale per permettere sia la (ras- 
missione che la ricezione di quel ca- 
rattere " dittici le” che corrisponde alle 
virgolette. 

Infatti il medesimo problema si 
riscontra in vari Word processore che 
prevedono, per questi casi, una ge- 
stione particolareggiata. Tutto ciò è 
dovuto al f atto che Commodore inter* 
preta l'apertura delle virgolette quale 
prossimo contenuto di stringa accet- 
tando quindi alcuni comandi in ma- 
niera diversa da quella che sì vorreb- 
be. 

Al fine dì rendere possibili even- 
tuali aggiunte al programma sono 
stati lasciati liberi sia in trasmissione 
che in ricezione, alcuni tasti funzio- 
ne. 

Prima di vedere come è possi bi* 
te collegare il Commodore ai modem 

0 demodulatore RTTY è doveroso e 
corretto fare due precisazioni: 

1 ) la stesura del programma è opera 
di Ambrogio, con il quale Paolo ha 
tentato di colla bora re; 

2) il demodulatore (modem) RTTY 



che è stato utilizzato da entrambi gli 
autori è l'ottimo TU 170-V progettato 
e distribuito da Ì2ZGP di Varese. 

I collegamenti C64/Modem 

I coti eg amenti da effettuare fra il 
Commodore 64 ed il demodulatore 
RTTY sono alquanto semplici, infatti 
sono necessari in tutto quattro cavet- 
ti che andranno saldati ad un connet- 
tore per la USER-PORI (connettore 
12+ 12 a passo 3.96). 

Sapendo che le connessioni 
della USER PORT sono disposte su 
due file (osservate il manuale del 
Commodore 64), si prendono in con- 
siderazione solamente le connessio- 
ni della parte inferiore quelle cioè 
contrassegnate dalle lettere che van- 
no alla A alla N. 

I Pin A della USER PORT. corri- 
spondente alla massa (sia logica che 
fisica) del C64, va collegato alfa mas- 


TabeMìna comandi in trasmissione 
FI 

Commuta in ricezione inviando automaticamente il messaggio: PSE KKK. 

F2 

Libero 

F3 

Modo di trasmissione (carattere per carattere o parola per parola). 

F4 

Ora e data. 

F5 + N 

Dove N è un numero da 0 a 9. Emissione messaggi prememorizzati (vedi label- 
lina messaggi dì F5) 

F6 

Libero. 

F7 + N 

(N è un numero da 0 a 9). Emissione messaggi estemporanei memorizzati con 
il comando F7 di ricezione, 

F8 

Emissione Videata (Si Interrompe HOME) per ritrasmettere quando si è ricevu- 
to. 

Freccia verso l’alto 

Emissione def nominativo del corrispondente con raggiunta di "de" ed il proprio 
nominativo. 

Lira sterlina 

Esegue l'emissione del numero 73 in grande. 

HOME 

Commuta istantaneamente in RX (ricezione). 

DEL 

Blocca qualunque messaggio in corso. 
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sa del domodulatore. 

I Ptn B e C sono collegati fra di 
loro ed insieme vanno riuscita del 
Modem; questa connesione costituì’ 
rà l'entrata dei segnali perii C64: lari* 
celione (RX). 

Dal Fin M. invece, escono i dati 
per La trasmissione verso il demodu- 
latore RTTY , il quale provvede a tras- 
formarli da digitali ad analogici, in 
maniera taìe da essere trasmessi via 
radio. 

L* ultimo collegamento è costitui- 
to dal Pin È, sul quale è presente una 
tensione di comando utile per passa- 
re dalla ricezione alla trasmissione 
(PPT) in automatico e va co (togato 
all'Ingresso OPERATE del modem. 


Tabeliina messaggi in TX di F5 


1 OR 2 

2 Nome e QTH 

3 Condizioni di lavoro (massaggio 1 ) 

4 Condiz ioni di I a voro (mess agg io 2 ) 

5 Condizioni di lavoro (messaggio 3) 

6 Condì zioni d i lavoro ( m essagg io 4 ) 

7 Fine messaggio con convenevoli 

8 RY RY RY 

9 THE QUICK BRQWN etc. 


1000 
10 IO 
1020 
1030 
1040 
1 050 
1060 
1070 
1080 
1090 
1 100 
1110 
1120 
1 130 
1 140 
1 150 
1 1 60 
1 170 

UBO 
1 190 
1200 

1210 

1220 

1230 

1240 

1250 

1260 


GOTO 1100 1270 

#*#**##******■#■***■******■**■ * 1280 


* * 

* RTTY MANAGEMENT SYSTEM * 

* DI * 

* AMBROSIO MAINIMI IW1BBG* 

* E ir 

* PAOLO DENARO I2YMA * 

* * 

* # # ***##**■# #■***■* ■* ** * # * # * ■* -* 


1230 

1300 

1310 

1320 


1330 


OPEN 1,2,0, CHR$£97)+ CHRS (0) 

PQKE 666, 04 

SP=45 :CR$= CH RS < 1 3 ) 

IS^l : GS=1 

PRIMT 11 CCLEAR3 11 : GOTO 4280 
REM ASCII 

GEI T$«IF T$ O 11 "GOTO 1440 
GET #l f KI!IF LEM <KS ) =OGQTG 1 
160 

IF FZ THEN RETURN 


1340 

1350 

1360 

1370 

1 330 
1390 


IF LP= PEEK (668) GOTO 1160 
IF POS (0) =40 AND KS=CRSGQTO 
1160 

IF PEEK <214) >=19 THEN SY3P3 
: PQKE 214, 17 SPRINT 
IF KS = CHRS (34) THEN POKE 212 
.0 

IF ASC (KS) >31 AND ASC(KS><9 
1 OR PSC(KS>«l3 THEN SV*=1 
IF SV* THEN PRINT M CG I ALLO J 11 K 
S;=LP= PEEK < 668 > «SV%=0 
IF K$= GHRS (34) THEN POKE 212 
,0 

GOTO USO 


1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1400 


GET TiHF T$<) 1,!f GOTO 1440 
GET #l t K$:IF LEN(KS) THEN K= 
ASC(KS) AND 31 
IF FZ THEN RETURN 
IF LP= PEEK ( 668 > GOTO 1270 
IF POS (0> =40 AND QS<31-K)=CR 
S THEN 1270 

IF PEEK (214)=) 19 THEN SYSP3 
sPOKE 214, 1 7 : PRINT 
PRINT » CSI ALLO! IJ ft$(31-K> ; «LP= 
PEEK (668) 

IF KO27G0TG 1270 

GET TSUF TS <> " -'GOTO 1440 

REM 

SET #1,K*:1F LEN(KS> THEN K= 
ASCCKS) AND 31 
IF PEEK ( 668 >=LPGOTO 1350 
IF POS(0>=40 AND AS(3l-K+32> 
~CRS THEN 1370 

IF PEEK < 214 ) => 19 THEN SY5P3 
«POKE 214, 17 «PRINT 
PRINT » £81 ALLO! M A$ (31-K+32) ; = 
LP= PEEK (668) 

IF K < > 3 1 GOTO 1350 
GOTO 1270 

REM GET CHR IN RECE I VE MODE 
IF f*2= CHRS (34) THEN POKE 212 
,0 

IF ASC C TS > ) N3S0TQ 1530 
IF ASCCTSMN3 THEN GOSUB 318 

0 

IF LEN CM1S (SR) >=U AND TS= CH 
RS (20 ) THEN M 1 S (SR> = *' " : GOTO 1 
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620 

1 490 IF LEN(M1*(SR)> AND T* = CHR$ 
(20) THEN M1*(SR)= LEFT»(M1*< 
SR > , LEN (MI $ ( BR) > - 1 ) : GOTO 162 
0 

1500 IF LEN(M1$(5R) ) <255 THEN MI* 
(SR)=M1*(5R)+T*:G0T0 1620 
1510 SR=SR+I s IF SR= 1 1 THEN SR=10:T 
*=">":60SUB 3100 
1520 GOTO 1460 

1530 IF T*= CHR*( 134) GOTO 1660 
1540 IF T*="4" THEN PRINT " CRVS3 CG 
IRLL01ENTER CQ MSG+F7 — " • »L=1 
2SG0SUB 2580:W*(12)=U*(12> :G0 
TO 1610 

1550 IF T*="£"GOTO 3120 
1560 IF T*= CHRSQ33) THEN K=0:PQK 
E PI, 10: GOTO 1020 
1570 IF T*= CHR*(136) THEN GDSUB 2 
500 

1580 IF T*= CHR*( 137) GOTO 1640 
1590 IF T*= CHR*(139> AND SW*=0 TH 
EN 5W)t=l : IS=0 :60T0 1660 
1600 IF T *= CHR*C139> RND SH%=1 TH 
EN SU*=0: IS=0:G0TO 1660 
1610 K=Z 

1620 IF SW*GOTO 1170 
1630 GOTO 1280 

1640 POKE P, Q:FZ = 1 :CR=Cfi-t-l :POKE PI 
, lOsPRINT SPRINT " CRVSI CBtflNC 
03 CD ON THE GIR N. 11 ; CA 
1650 L=12 s GOSUB 2360:G0TQ 2230 
1660 REM SPEED CHANGE 

1670 IF SW*=1 THEN POKE 664,9:K=Z: 
W*="RSCI I " 

1680 IF SW*=0 THEN POKE 664,&:K=Z: 
W$ = “ BAUDOT 11 

1690 GOSUB 3630: REM SPEED MENU 

1700 GET S*:IF S*=" ■* THEN 1700 
1710 18= VRL(S*):iF IS<1 OR 15)9G0 
TO 2280 

1720 IF IS=1 THEN POKE £65, 250: POK 
E 666, 84 : POKE 661.25SP0KE 662i 
, 38sSP=45: IS=1 

1730 IF IS=2 THEN POKE 665,250:P0K 
E 666, 76: POKE 661, 25: POKE 662 
, 38 s SP=50 : IS=£ 

1740 IF I S=3 THEN POKE 665,80: POK 
E 666,51: POKE 661, 68: POKE 662 
, 25:SP=75: 15=3 

1750 IF I S=4 THEN POKE 665, 252: POK 

24 - Commodore 


E 666, 34: POKE 661, 26: POKE 662 
,17: POKE 659, 39:SP=110 
1760 IF 1 8=5 THEN POKE 665, 168: POK 
E 666, 25:P0KE 6S1,!12:P0KE 66 
2, 12 : POKE 659, 5 : SP= 150 
1770 IF I 5=6 THEN POKE 665, 2) 2: POK 
E 666, 12SP0KE 6&1,&:P0KE 662, 
£ : POKE 659,&:SP=300 
1780 IF IS=7 THEN POKE £65, 106:P0K 
E £66, 6:P0KE S61,209:POKE 662 
, 2 : POKE 659, 7:SP=600 
1790 IF 15=8 THEN POKE 665,54:P0KE 
666, 3: POKE 66 1,55: POKE 662,1 
JPOKE 659, 8«SP=1200 
1800 IF 15=9 THEN POKE 665, 154:P0K 
E 666, li POKE 661, 105:P0KE 662 
, 0* PDKE 659, 10:SP=2400 
1810 GOTO 2280 

1820 POKE P, QsF=Z:G=Z:PRINT SPRINT 
" C7 D0WN3 CRVS3 CGIRLLOl " ;SP; " 
CLEFT3 BRUD "W*" DN THE AIR" 
1830 fl%=1904 

1840 M*="rRYRYRYRYRYRYRYRYRY ,, + M* f 1 
4) + " F" : GOSUB 2380 

1850 IF LEN'(M1*(Z)) THEN GOSUB 3 
290 

1860 GET T* : IF T*=" “ THEN GOSUB 21 
60: GOTO 1860 

1870 IF T*= CHR* (34) THEN POKE 212 
,0 

1080 IF SU%=1 RND T* = CHR* (13) THE 
N T* = " r =GOTO 3350 
1090 IF SU*=1 RND T* = CHR* ( 20) THE 
N GOSUB 3460: GOTO 1860 
1900 L= ftSC ( T* ) : I F (L<T1 OR L)N3) 
RND SUW = 1 RND LENCH*))Q THEN 
3390 

1910 L= RSC < T*) : IF (L (TI OR L>N3)G 
□TO 2790 

1920 IF SU*=1 THEN 3350 
1930 GDSUB 1 340 : GOTO 1060 
1940 1= ASC ( T* > : IF (Idi OR I)N3> 
THEN RETURN 

1950 IF RT*=0 THEN PRINT "CRVS1CG 
IRLL03 " ; TS ; 

I960 IF T*= CHR* (34) THEN POKE 212 
,0 

1970 IF SW*=1 THEN 2010 
1980 I=B« (I-T) :G=Z: IF I)T THEN 1=1 
-T : G=U 

1990 IF F=Z RND G=U THEN GOSUB 213 



2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 


2080 


2090 

2100 

2110 

2120 
2130 
2140 
2 150 
2160 
2170 
2180 
2190 
2200 

2210 

2220 


2230 

2240 

2250 

2260 

2270 

2280 


2290 


0 

IF F = LJ AND G=Z THEN GQSUB 216 
0 

AB-AB+L1 : I F AB) ML AND T*=" ’ J T 
HEN GOSUB 21 90: RETURN 
IF SW%=1 THEN PRINT# I,T$; 

IF SWtf=Q THEN PRINT#!, CHR*(C 

%<!)>; 

IF PEEK (669) < > PEEKC670) THE 

N 2040 

RETURN 

REM SYNC, PRINT 

IF SU*=1 AND RT*=0 AND (TS=CR 
% OR T $= M r ,r ) THEN PRINT#1,CRS 
; SPRINT s GOTO 2110 
IF SM*=1 AND RT^-1 AND <T*=CR 
% DR T$="r) THEN PRINT # 1 , CR% 
; 5 GOTO 2110 

IF SWtf=l THEN PRINT#!, CHR$ C2 
55) ; 

IF SW*=0 THEN PRINT#l f 'CHRS<3 
1-S) ; 

IF PEEK (669 ) < ) PEEK (670) GOTO 
2110 
RETURN 

REM FI 63 

IF SW* THEN RETURN 
S—à s F~U : GOSUB 2060: RETURN 
REM LTRS 

IF SW%~1 THEN GOTO 2060 

S^Z2F=Z:G0SUB 2060: RETURN 
REFI CR+LF 

IF RT*=1 AND SU%=0 THEN AB=Z = 
RETURN 

IF SWX-1 THEN AB=0:PRINT sPRI 
NT# 1 , cm% (13) ; : RETURN 
5—23 ■ GOSUB 2060:3=29 : GOSUB 20 
60: GOSUB 2160 SPRINT CHR*U3> 

; 5 AB=Z s RETURN 

REM TX END 

L-20 : GOSUB 2360 
IF PEEK (669 M > PEEK (670) THE 
N 2250 

PQKE P, Z s IF FZ=U THEN GOSUB 3 
520 

IF FZ=1 GOTO 1640 
POKE PI * 5:PR1NT SPRINT » C5 R 
I6HT3 IROSI EVERDE3 ;SP* " CLEFT] 
BAUD RX “ W$ ,r CDOWN] CBIANC03 " 
SPRINT SPS;SP*;SP*;SP$ SPRINT 
FDR J=1 TO 255 : GET #1,K*SNEXT 


2300 

2310 

2320 

2330 

2340 

2350 


2360 

2370 

2380 


2390 


2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 


2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 


K-I : PDKE P,Z SPRINT CHR$(142> 
; t GOTO 1620 

REM OUT FIX MSB 

GET TS:IF T*»"" THEN GQSUB 21 
60: GOTO 2320 

IF T CHR*<34> THEN PDKE 212 

,0 

IF T %- CHRSC135) THEN L=29sG0 
TO 2360 

L= VAL CT*> SPRINT 11 CRVS3 IBI PNC 
□ 1 M ;:IF L <0 OR L>9 THEN RETUR 
N 

M$=M*(L):IF MS= " " THEN RETURN 
REM DUT FIX MSG. 

FOR M=U TO LEM (MS): GET s I F 
11 GOTO 2410 

IF T*= CHR*(34) THEN POKE 212 

,0 

M*<25)=M*(25)+B*sIF B*= CHR*( 
V) THEN M*=" M 

T*= MID*(M*,M.U) sIF T*=""GOTO 
2640 

IF OSC (T*) <T1 OR OSC < T* ) > N3 
GOTO 2460 
GOSUB 1940 

NEXT M:M*=M*(25) :M$ (25) = ,, “ J IF 
M*="" THEN RETURN 
GOTO 2360 

IF T$=‘T m OR T*=CR* THEN GQSU 
B 2200: GOSUB 2160 
IF T*= CHRi ( 135) THEN M=M+UJL. 
= VOL ( MID*(MS,M, U) ) :M*=M*(L> 
JGOTO 2380 

IF T*="t“ THEN L=16 JGOTO 2360 
GOTO 2440 

REM INPUT MSG 

SYSP3 JPOKE 214, 1 7 J PRINT 
POKE P, Z: PRINT " CRVS3 CGIOLLOI 
MSG CODE?"; 

GET T* : I F T*= ,,,, GQTO 2530 

IF T*= CHR*(34) THEN POKE 212 

,0 

IF PEEK(216)=> 19 THEN SVSP3 
JPOKE 214, 17JPRINT 
L= VOL(TK) 

PRINT " CRVSI " ;L;" OK"; SPRINT 
“ [RVS3 C GIALLO!"; 

U*(L>=“" 

GET T*:IF T*=""GOTO 2590 
IF PEEK (216) => 13 THEN SVSP3 
JPOKE 214, 17 JPRINT 
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2610 IF T*= CHR* (34) THEN POKE 212 
,0 

2620 IF T*= CHR* ( 136) DR T*='"f" TH 
EN PRINT " [GIALLO! OK CRV0FF3 " ; 
: IF U*=“ " THEN RETURN 
2630 U*(L>=U*(L>+T*:FS=l:PRrNT CG 
I ALLO! Ti ; ! GOTO 2590 
2640 REM OUT MSS 

2650 GET T* : IF T*=‘"' TNEN GOSUB 21 
60 i GOTO 2650 

2660 IF T*= CHfì*(34) THEN POKE 212 

,0 

. 2670 L= VAL (T*> 

2680 IF U* ( L ) — " " THEN RETURN 
2690 M*=U* (L) SGOSUB 2380 
2700 RETURN 

2710 REM CW ID. FQLLOW 

2720 M*=" PSE K K KFCW I DENTIFY FO 
LLQW" SGOSUB 2380 

2730 EX =65 : POKE P,B6iF0R J=1 TO 80 
0 s NE X T 

2740 FOR I=U TO LEN(CW*):P*= MIO* 
(CW*, I, U) 

2750 IF , ' I *= U P , ‘ THEN POKE P,B0:P0KE 
S3, 232 1 FOR J=U TO EX :NEXT :P 
OKE P, B6 s POKE S3, Z 
2760 IF P*= "L" THEN POKE P,B0:P0KE 
53, 232 1 FOR J=U TO EX*3:NEXT 
s POKE P, B6 : POKE S3, Z 
2770 IF P*=" " THEN FOR J=U TO EX: 
NEXT 

2780 FOR J=U TO EX : NEXT : NEXT UFO 
R J=U TO 800: NEXT : GOSUB 2200 
: GOTO 2260 

2730 REM TX CNTRL 

2800 IF T *= CHR* ( 138 ) THEN M*=" - 
"+ [_EFT* (TI*, 2) + “ i ’*+ MIO* (TI* 
,3,2)+" GMT -"+GG*: GOSUB 2380 
2810 IF T*= CHR* ( 13 ) THEN GOSUB 22 
00: GOTO 1860 

2820 IF T*= CHR* (19) THEN GOSUB 22 
00: GOTO 2260 

2830 IF T*=" f " THEN L=14:G0SUB 236 
0 : GOTO 1860 

2840 IF T*="f' THEN PRINT " [RVOFFI 
( t ROSI " ; : M* C 1 4 ) =" " : GOTO 3070 
2850 IF T*= ,, £" THEN L=11:G0SUB 236 
0 s GOTO 2260 

2860 IF T*= CHR* ( 1 36 > THEN GOSUB 2 
640 : GOTO 1860 

2870 IF T*= CHR* (133) GOTO 2230 


2830 IF T*= CHR* (135) THEN GOSUB 2 
310: IF L=7GOTO 2230 
2890 IF T*= CHR* (139) GOTO 2710 
2900 IF T *= CHR* < 134) AND SU*=1 TH 
EN SU5C=0iRTJt»0 SPRINT "V';»GOT 
0 2920 

2910 IF T*= CHR* (134) AND SU%=0 TH 
EN SUX=1 :RT%=0:pRINT " CRV0FF3 
♦ " ; 

2920 IF T* <> CHR* ( 140) THEN 1860 
2930 RT)t=l 

2940 FOR J=1 024 TO 1823 STEP 40 
2950 FOR JJ=0 TO 39 
2960 R*= PEEK ( J+JJ) RND 127: POKE J 
+JJ, RM+128 
2970 POKE MN+J+JJ, 1 
2980 IF R*<32 THEN R%=R%+64 
2930 T*= CHR* ( R%) : GOSUB 1340 
3000 NEXT 

3010 IF SW%=0 THEN S=23 : GOSUB 2060 
: S=29 : GOSUB 2060:G0SUB 216Q:A 
B=Z 

3020 IF SW%=1 THEN T*="r" sGOSUB 20 
60 : AB=Z 

3030 GET T* : IF T*=" CH0ME3" THEN J= 
2000 
3040 NEXT 
3050 RTy-=0 
3060 GOTO 1060 

3070 REM OM COLL 

3080 GET T* : IF T*="“GOTO 3080 

3090 IF T*= CHR* ( 34 ) THEN T*= 

3100 IF T *= THEN PRINT 11 CRV0FF3 

) [ROSI " ; :M*( 14) ='* "+M* < 14):G0 
TD 1860 

3110 GOSUB 2580 : M* < 14 ) =M* (14) +T* : G 
OTO 3080 

3120 SYSP3 : POKE 214, 17:PRINT 
3130 L= 14 SPRINT " [GIALLO! CRUS1CALL 
SIGN?" ; 

3140 GOSUB 2580: IF u*(14)="" THEN 
FS=Z 

3150 M* (14)=" "+U*(14)+" "+Mt ( O) 
3160 M*(7)=M*(14)+MS<17> 

3170 GOTO 1620 

3180 REM ACQUISIZIONE CARATTERI 
3190 REM 

3200 B%= ASC ( T* ) : IF B%>64 IHEN B'/.= 
By-64 

3210 IF T*= CHR* (20) THEN POKE A*, 
32 : AV.=A*- 1 : B‘/-=32 
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3220 IF Ti= CHRi (13) THEN B*=105 
3230 IF RX(l904 THEN PXM904 
3240 POKE PX,B%:P0KE MN+fl*, 7 
3250 IF Ti= CHRi (20) THEN PX=PX-1 
3260 RY.=PX+i:IF PX>2022 THEN fl%=20 
22: 5YSP4 

3270 PDKE fl«,82:P0KE MN+PX, 7 
3280 RETURN 

3290 REM OUT MEM. MSB. 

.3300 FOR SR=0 TD 10 

3310 MÌ=Mli (SR> : IF Mi="" THEN 3330 
3320 GOSUE 2380 :M1S <SR> =" ” 

3330 NEXT SR 
3340 SR=0: RETURN 

3350 REM WORD TX MODE 

3360 HÌ=HS+Ti:PRINT Ti ; 

3370 IF Ti=" 11 OR T*="P" THEN 3390 
3380 GOTO 1860 

3390 0P= LEN < Hi) : FOR J=U TO OP 
3400 Ti= MIDi (Hi, J.l) 

3410 PRINT LEFTi (RTt, OP-J+1 ) ; " CGI 
OLL03 CRVS3 " ; : IF Ti="F" PND SW 
X=1 THEN GQSUB 2060 
3420 IF Ti= ,l P’‘ PND SW%=0 THEN GOSU 
B 2130 

3430 GOSUE 1 940 : PRINT " CRVOFF]"; 

LEFT i ( RU$, DP-J) ; 

3440 NEXT J 

3450 Hi=" " : GOTO 1860 

3460 REM DELETE CHPR. 

3470 IF LEN (Hi) =0 THEN RETURN 

3480 PRINT Ti ; 

3490 IF LEN (Hi) =1 THEN Hi = 

RN 

3500 Hi= LEFTi (Hi, LEN (Hi ) — 1 ) 

3510 RETURN 

3520 REM CHECK RY IN CQ MODE 

3530 FOR J=U TO 255:GET #1. Ti: NEXT 
: PK=T I /60 s TF=0 

3540 IF TI/60JPK+15 THEN RETURN 
3550 GOSUB 1620:IF SWX=0 PND Pi (31 
-K) <> "R" THEN 3610 
3560 IF 5WX=1 PND Ki <> " R" THEN 361 
0 

3570 GOSUB 1620: IF SUIX=Q PND Pi (31 
— K ) < ) ” Y " THEN 3540 
3580 IF SWX=1 PND K*() "¥“ THEN 354 
O 

3590 IF TF=0 THEN TF=1 : GOTO 3610 

3600 FZ=Z:CP=Z: RETURN 

3610 GET Ti:IF Ti < > " CHOMEI “ THEN 3 


540 

3620 GOTO 3600 

3630 PRINT’ " CCLEPRI VELOCITP’ D 

ISPON IBILI " ;WÌ 


3640 

PRINT 

m 

( 1 ) 

= 

45. 45 

BAUD" 

3650 

PRINT 

ii 

(2) 

ss 

50 

BAUD" 

3660 

PRINT 

il 

(3) 

- 

75 

BPUD" 

3670 

PRINT 

il 

(4) 

— 

110 

BAUD" 

3660 

PRINT 

il 

<5) 

= 

150 

BAUD" 

3690 

PRINT 

11 

(6> 


300 

BAUD" 

3700 

PRINT 

ti 

<7) 

= 

600 

BAUD" 

3710 

PRINT 

It 

(8) 

ss 

1200 

BAUD 11 

3720 

PRINT 

11 

(9) 

- 

2400 

BAUD" 

3730 

PRINT 

11 

CO > 

- 

INVARIATO" 


3740 RETURN 
3750 Ni— 11 I2YNP " 

3760 DIM Mi (30) 

3770 Mi (O ) = " DE"+Ni 

3780 MÌ="PCQ CQ CQ CQ“+Mi(0) 

3790 Mi ( 12) =Mi+Mi+Mi+MÌ 
3800 Mi (9) = "MTHE QUICK BRDWN FOX J 
UMPS OVER THE LRZY DOG’ S BRCK 
0123456789 DE" 

3810 Mi (9) =MÌ (9) +NS 

3820 Mi (8 ) = "PRYRYRYRYRYRYRYRYRYRYR 
YRYRYRYRYRYRYRYRYRYRYRYRYRYRY 
RYRYRYRYRYF " 

3630 Mi (20) = ,I PPSE K K Kr" 

3840 REM 

3850 Mi(2)="riL MIO NOME E' PPOLO 
- 0TH COLOGND -Ml-FGRP LGCPTO 
R - EF 37 F ~F" 

3860 mi(3)="PRTX YPESU FT-4S0/RFPN 
TENNP PKU 9 EL. VERT.F" 

3870 Mi (3) =Mt (3) RTTY CBM 64PM0DE 
M TU 170/VP" 

3880 Mi ( 1 ) =*'FRYRYRYRY QRZ? QRZ ? QR 
2?*'+MÌ (0> +*’*" 

3890 Mi (4) ="FRTX~ICOM IC-720/OPPNT 
. PKW 12 ELEM. LOGPRTTY CBM 6 
4 MODEM TU 170 /VP" 

3900 Mi ( 5 ) = '* " 

3910 Mi ( 6 > = " " 

3920 MÌ(11)="PP000000 OOOOPO 
0 0 O CIROP O 

0 CI POP" 

3930 Mi (1 1 ) =MÌ < 1 1>+" 0 000 

DEP O 0 "+NÌ-*-"F 

0 0 O ■■ 

3940 Mi (11) =MÌ (11)+" ITPLIPP" 

3950 Mi (11) =MÌ ( 1 1 ) +■' O OOOOP 
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3360 

3970 


3900 

3390 

4000 

4010 

4020 

4030 


4040 

4050 


4060 


4070 

4080 

4030 

4100 

4110 

4120 

4130 

4140 

4150 


4160 


4170 

4100 

4190 

4200 

4210 

4220 


4230 


rSK SK SK r^ M 

(23)=- u rRVRYRYRYRyRYRYRYRYRY 
R Y R Y R Y R Y R Y R Y R Y R Y R Y RYF ■* 

IF GB THEN INPUT "BMT - CHHIW 
) " ;TPSiIF LEN(TRS) <>4 THEN 

3990 

T I + ’* 00 11 

IF GB THEN INPUT “DA7P 

) 11 ; GBS 

MS i 14) =NS 
SP* = ,t 

H 

RETURN 

PI *53280 5 POKE PI, 8 SPRINT "IBI 
ANCO]"; CHR* (14) ; IP2-SS577IP0 
KE P2, Z 

DIM A* ( 63) : POR K=0 TQ 635READ 
AS <K) SNEXT 

DATA V, X, M, " " , G, B, D, Q, P, Y, 
H, W, L, Z, T, K, C, F, N, J, R, D, U, 

I e ii ii r\ ** |( ■ p » ■* 

DOTO " ", 9, 1, 0,6, 

#, 2, >,+,5, < , " * ", " ‘ ", ", ", ’ , 4, * 
N .7,S 

DOTA *, " 3, 

A*<29>= CHR*<13) :AS(61)= CHR* 
(13) 

Z=0 : U=1 : D=2 : Q=4 : V=20 : T=32 ! W=1 
7! N=90 ;NR=2 ■ DI M U*<20) :VE=20 
P=56577:A%=1304 
RT*="[39 LEFTD " 

DIM C% (32) 

RU*="C33 RI6HT3 " 

DI M &X < 63) ! FQR 1=2 TO 635 READ 
B%(I> SNEXT 

DATA 27, 4. 1 , 46, 58, 45, 31, 52, 37, 
33, 5 4, 43, 46, 57, 39, 56, 40, 50, 34 
, 38, 47, 53, 62, 42, 35 
DATA 51,60,49,48,31,31,31,44, 
31, 7, 12, 17, 13, 15, 9, 20, 26, 19,5 
, 1 , 22, 24, 25, 28, 18, 2 
DATA 21,11,30,3,16,6,8,10,14, 
31, 31, 31, 31, 31 

FOR I=Z TQ 315 READ C%<I)(NEXT 

BO=20 i B6=Q : W=532B 1 
POKE W, 1 1 :TE*=" 18" 

UK=2 1 8 5 SN=36877 s P3=49 1 52 
DATA 31,15,23,7,31,11,19,3,29. 
, 13,21 

DOTA 5, 25, 9, 17, 1, 30, 14, 22, 6, 2\ 


4240 

4250 

4260 

4270 

4280 

4290 

4300 

4310 

4320 

4330 

4340 

4350 

4360 

4370 

4380 

4390 

4400 

4410 

4420 

4430 

4440 

4450 

4460 

4470 

4480 

4490 

4500 

4510 
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6 , 10, 18 

DATA 31,28,12,20,4,24,31,16,3 
1, 31 

POKE 650, 128 j POKE 649, 15sML=6 
2 5 CW*= "PP PL.L PLLLL PL PPJ_P" 
W*="— BAUDOT- " s IF SWX=1 THEN W 
*= " -ASCI I-" 

MN=56272!NR=1 sTl =31 i N3=91 : QOS 
UB 3750SPRINT " 120 DOWN] " SC30T 
0 2280 

REM LM CHARGE 

J=49152sP3=49152sP4=43408 
READ A*J IF A* <>"***" THEN 430 
0 

READ A* : IF A*=" ***-*" THEN 
RESTORE ! GOTO 4030 
IF THEN J=P4 : GOTO 431 

O 

POKE J, VAL (A*) 

J=J+1 

GOTO 4310 

DATA ***, 162, 7, 169, 2lS, 141, 3 

7. 192. 169. 4. 234. 141 

DATA 34,192,141,31,192,169,40 
, 141,30, 192, 169 
DATA 0,141,33,192,141,36,192, 
173, 0, 0, 141 

DATA 0, 0, 142, 0, O, 238, 36, 192, 2 

08. 3. 238 

DATA 37, 192,233,33, 192,208,3, 

238. 34. 192. 238 

DATA 30,192,200,3,238,31,192, 

173. 31. 192. 201 

DATA 7,203,8,173,30,192,201,7 
2, 208, 1 , 96 

DATA 76,29,192,255,-** 

DATA 162,1,169,219,141,37,193 
, 169, 7, 234, 141 

DATA 34,193,141,31,193,169,11 
3, 141, 30, 193, 163 ‘ 

DATA 112,141,33,193,141,36,19 

3. 173. 231. 7. 141 

DATA 191,7,142,191,219,230,36 
, 193, 208, 3, 238 

DATA 37,193,238,33,193,208,3, 

238. 34. 193. 238 

DATA 30,193,208,3,238,31,193, 

173. 31. 193. 201 

DATA 7,206,8,173,30,193,201,-2 

32, 208, 1 , 96 

DATA 76, 29, 193, **** 


COME PROTEGGERSI 
DAGLI SPROTETTORI 

di Ernesto Sidoti 


Crei programmi per il Commodore? 

E senza dubbio ti sarai posto il problema di pro- 
teggere il tuo software e magari nessuna idea ti sarà 
venuta Semente. Ho indovinato? Allora leggi questo 
mio articola sicuramente ti sarà d’aiuto. 

Bando ai preamboli. Batti subito la riga: 

IO P RINT " C I AG 11 s RE> t " TTTTTTTTTTTTT 
LeT si creano cosi: 

Dopo aver battuto: REM devi premere i tasti in que- 
st’ordine: 

1) digita 2 doppi apici, le cosi dette virgolette ("), 
prorpio due volte! 

2) con il tasto (INST/DEL) cancellare un doppio api- 
ce; 

3) premere contemporaneamente (SHIFT) (INST/ 
DEL) per circa 2 secondi; 

4) premere il tasto (INST/DEL) un numero di volte 
pari ai caratteri da cancellare (nel caso dell’esempio: 
19 volte) 

Ora, sedai il comando RUN, il programma costi- 
tuito dalia sola riga 10, visualizzerà: “CIAO" Ma 
quando vorrai ottenere il LISTato non apparirà. In 
questo modo puoi inserire righe non visualizzabili nei 
tuo programma. 

Scrivi adesso il programma di prova a corredo 


Adesso salva il programma in questo modo: 
SAVE "PROVAAT" 

Come ben saprai nel tuo Commodore 64 esìste 
un buffer per i! TAPE (il buffer non è altro che un pic- 
colo magazzino di caratteri). 

Questo buffer risiede tra la locazione 628 e la loca- 
zione 1019. 

Al momento della SAVE nella locazione 633 si 
troverà il valore numerico corrispondente, in codice 
ASCII, alla prima lettera del nome del programma; 
nella locazione 834 il valore della seconda lettera, 
nella 835 il valore della terza e così via. 

In questo caso, avendo salvato il programma 
con il nome PRO VA AI, nella locazione 833 si trove- 
rà il valore 80 (in codice ASCII "P"), nella successiva 
leggeremo 82, poi 79, ecc 

In fine, nella locazione 839 troveremo il valore 
20 corrispondente alla T t infatti quella "T" che è con- 
tenuta nel nome del programma non è il carattere T 
dell'alfabeto, ma vi apparirà in campo inverso e starà 
a significare razione di cancellazione di un carattere. 

A questo punto dovresti aver capito il trucco. 

Salvo il programma con il nome PROVAAT, in 
tal modo nella locazione 839 sarà memorizzato il va- 
lore 20 , Così facendo quando carico il programma 


3 PR I NT 11 <CLR/HOME> EQUAZIONI 
DI 11 GRADO" SPRINT 

IO PRINT" SCRIVI I VALORI DI fl T B,C ri 

20 INPUT A, EL G:S-PEEK<e3 r t?) 

! REM m TTTTTTTTTTTTTTTTT 

30 PR I NT s IFSO 20THEN5YSS4732 

: REM 11 TTTTTTTTTTTTTTTTTTTTTTTTT 

40 D“(B 2-6(fl+C)) 

45 IFD <OTHEN PRINT' 1 <CLR/HOME* 

DELTA NEGATIVO 11 ; END 


40 R®SQR CO- 
SO X1=<-B+R>/(2*A> 

BO X2= C— B— R)/ C2*A) 

70 PRINT 

SO PRINT-A-'* - A, *'B— " * B, ;C 

85 PRINT 

90 PRINT " LE RADICI SONO : 3 * * * * * * * 11 

32 PRINT" X l»* 1 ; XI, N X2=" ;X1 
95 END 
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originale ritroverò nella locazione 839 sempre il valo- 
re 2D, 

Vogliono copiarti il programma? 

Prima di tutto dovranno caricarlo nella memoria 
del Commodore con un normale procedura "LOAD" 
(RETURN), quindi appena trovato il programma il 
calcolatore visualizzerà: 

FOUND PROVA, non "PROVAAT" 

Gli ultimi due caratteri non vengono visualizzati. 

0 meglio» vengono sì visualizzati, ma l'ultima “A 1 * 
viene subito cancellata dal comando rt T\ e rocchio 
non se ne avvede. 

Il "pirata" che voglia duplicare il programma 
scriverà: 

SAVE "PROVA" o solo SAVE. 

Cosi facendo, nel primo caso, metterà nelle lo- 
cazioni riservate al nome del programma solo i valori 
delle lettere iJ P, R, O, V, A"; net secondo caso, inve- 
ce, tutte le locazioni riservate al nome avranno valo- 
re 32, equivalente allo spazio. 

A questo punto quando il calcolatore eseguirà 
ciò che è stato definito nella riga 30 e .... 0 T non tro- 
vando Ciò che dovrebbe esistere nel famoso buffer, 
eseguirà il comando, ormai noto di System reset, la 
SYS (64738), 

Se ancora non sei soddisfatto, batti come prima 
riga del programma la seguente: 

1 REMERNESTO 


Adesso eseguì questi comandi diretti: 

1) FOR A - 2054 TO 2059 : POKE A, 20: next (RE- 
TURN) 

2) POKE 2060 , 204 (RETURN) 

Battendo comando LIST avrai solamente un 
bel: "SYNTAX ERROR\ 

Perchè tutto ciò? 

Nella fase t), come riterazine descritta, vengo- 
no sostituite le lettere del nome "ERNESTO" con 7 
"T\ corrispondenti a sette volte il dasto DEL. 

Nella fase 2) nella locazione 2060 viene scritto 
un valore non compreso nel codice di comandi: quin- 
di quando l'interprete BASIC andrà a leggere tale va- 
lore dovrà interpretarlo come codice di comando e 
segnalerà un errore di sintassi. 

Un'altra protezione di notevole interesse riguar- 
da la locazione di memoria numero 808. 

Ponzate, infatti, ad eseguire la POKE 808, 205, 
Con questo sistema cambio l'indirizzo di partenza 
del vettore che controlla la sobroutine che analizza 
se il tasto (R UN/STOP) è premuto oppure no. In que- 
sta maniera disabilito non solo il tasto (R UN/STOP) 
* RESTONE » ma anche l’istruzione LIST, 

un'altra locazione interessante è la 819, infatti 
con POKE 819, PEEK (817) metto nel vettore di SA- 
VE l'indirizzo della routine di LOAD rendendo quindi 
inutilizzabile la prima. 

Avete capito bene: Allora, mi raccomando: silenzio! 
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NUMERI PRIMI 

di Eugenio Coppali 



Alcuni rami della teoria dei numeri sono in grado di 
suscitare un notevole interesse anche nelle persone 
che non si occupano abitualmente di matematica. In 
questi articolo affronteremo il problema dei numeri 
primi, ponendo in particolare rilievo gli aspetti più cu* 
ri osi e interessanti concernenti questo insieme nu- 
merico. 

Prima di iniziare ad analizzare questo argomen- 
to è necessario ricordare la definizione di numero 
primo. Un numero naturale si dice "primo" quando è 
divisibile solo per se stesso e per l'unità, ad esempio 
5,13,29 sono numeri primi. Come si può facilmente 
capire, il concetto di numero primo è particolarmente 
facile ed intuitivo, poiché non presenta sostanziali 


difficoltà che ne rendano ardua la comprensione. 

Questa facilità di assimilazione del concetto non 
dovrà peraltro farci ritenere questo argomento bana- 
le, infatti pochi altri campi della matematica sono sta- 
ti oggetto di analisi così approfondita come quello dei 
numeri primi. 

Sin dall'antichità questo insieme numerico è 
stato al centro delle analisi dei matematici di ogni 
tempo. Dapprima Euclide scopri che esso è infinito e 
ciò fu possibile dimostrando che la negazione di tale 
asserzione conduce a contraddizioni dì carattere lo- 
gico. In matematica questo tipo di dimostrazione è 
detta “per assurdo" e viene usata assai frequente- 
mente". 
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Dopo questa prima importante scoperta, si pose 
i; problema di determinare la densità di questo insie- 
me all'interno di quello dei numeri naturali, la soluzio- 
ne di questo enigma è giunta in tempi relativamente 
recenti ed è espressa dal seguente limite: 

lìm n 

n-^ log(n) 

infatti, se noi poniamo uguale a valori sempre più atti, 
otterremo risultati di densità che si avvicinano sem- 
pre maggiormente al valore cercato. 

I due teoremi citati in precedenza, il secondo dei 
quali prende ìf nome dei "teorema dei numeri primi” 
data la sua enorme importanza, costituiscono due 
capisaldi di questo ramo della matematica. 

Essere riusciti a risolvere questi enigmi è senza 
dubbio importante, ma altri problemi, fino ad oggi pri- 
vi di risposta e che quindi continuano ad essere di 
profondo interesse da parte di matematici. 

Uno di essi spicca rispetto agli altri: esiste una 
logica, esprimibile magari attraverso una determina- 
ta relazione matematica, che permetta di compren- 
dere la maniera in cui la sequenza dei numeri primi si 
dispone all interno dell'Insieme dei numeri naturali? 

Sino ad ora si sa solamente, attraverso un im- 
portante teorema, che non esiste alcuna formula po- 
linominale che permetta di generare tutti i numeri pri- 
mi uno diverso dell’altro in maniera tale che nessun 
elemento primo rimanga escluso o ripetuto più volte. 

Diamo ora un breve esempio di quanto appena 
asserito. 

L’espressione X 2 , + X + 17 costituisce la più nota 
formula generatrice di numeri primi, essa è stata 
creata fa Eulero e fornisce valori esatti per 15, 
dopodiché è del tutto insufficiente per il compito che 
le è stato affidato. 

Ma allora quale può essere la logica che guida 
fa disposizione dei numeri primi, se fino ad ora le ri- 
sposte fornite si sono rilevate parziali o errate? 

Forse fondendo razionalità, immaginazione e 
fantasia potremo meglio addentrarci in questa città f 
quella dei numeri primi, che purtroppo sembra non 
possedere una lista completa degli indirizzi dove re- 
perire i suoi abitanti. 

Come spesso accade in quasi tutti le discipline 
scientifiche, alcuni importanti scoperte si verificano 
in circostanze inusuali e difficilmente preventivabili, 
basterebbe a questo proposito ricordare che Fermi 


realizzò la sua prima reazione nucleare all'Interno 
della vasca di pesqi presente nella facoltà di fisica dì 
Roma, 

Ho citato questa situazione in quanto qualcosa 
di analogo è awennuto nel ramo matematico che ci 
interessa in questo momento.,. . Stanislaw Ulam, ri- 
cercatore del Los Alamos Laboratory, in una giorna- 
ta dell’anno 1963, stava seguendo un convegno 
scientifico a cut era stato invitato a partecipare. 

I lavori del seminario sì sviluppavano in maniera 
partieoi armante noiosa senza richiamare l'interesse 
del nostro personaggio cho era più propenso a viag- 
giare con la sua mente verso altri lidi. 

Dopo aver scarabocchiato alcuni numeri su un 
Dlocchetto di carta decise di disporre i numeri natura- 
li su una spirale in modo che, partendo dal centro, sì 
allargasse in progressione seguendo questa confi- 
gurazione. Il suo stupore fu subito grande: i numeri 
primi al l'interno di questa sequenza si disponevano 
in maniera tutt altro che casuale. Dapprima pensò 
che ciò fosse da addebitare al fatto che gli elementi 
presi in onsiderazione sul suo notex erano troppo e 
quindi certe simmetrie e disposizioni regolari dei nu- 
meri primi sarebbero scomparse procedendo ad 
analizzare successioni sempre più grandi di elemen- 
ti. 



La spirate dei numeri primi prodotta con quadrati da 9 punti 
( tempo di visualizzazione: 25 minuti). 
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Incuriosito si ripropose, terminato il convegno, dì 
esaminare sequenze sempre piu lunghe dì numeri 
naturali disposti su una spirale, al fine dì osservare il 
comportamento degli elementi primi. 

Avvalendosi dell'aiuto di un calcolatore molto 
potente e di un disco contenente i primi 90 milioni dì 
numeri primi, scopri che quello che aveva notato sul 
suo blocco di carta persisteva; gli elementi primi ten- 
devano a disporsi lungo linee rette in quasi tutte le 
zone delia spirale, accentuando naturalmente que- 
sto comportamento in determiniate aree la loro pre- 
senza era maggiore. 

Queste linee rette, lungo le quali tendono a dis- 
porsi i numeri primi, sono di ogni genere: orizzontali, 
verticali,, oblique e contengono elementi che sono i 
valori corrispondenti di equazioni quadratiche, cioè 
dì secondo grado, aventi come primo elemento 4 x 
elevato al quadrato. Ad esempio la sequenza diago- 
nale dei numeri primi 5, 19, 41 , 71 è data dalla rela- 
zione 4x elevato al quadrato +2 x + 1 7, dove x assu- 
me i valori compresi tra 0 e 3. 

Naturalmente è possibile iniziare il processo di 
spiralìzzazione dei numeri senza cominciare da t . 
Se infatti volessimo scegliere 17 come primo ele- 
mento otterremmo che l'insieme dei numeri primi, 
che si trova sulla diagonale che è condotta tra il verti- 
ce in alto a destra e il corrispettivo in basso a sinistra, 
è espresso dalla relazione x elevato al quadrato 
4x+17* 

É quindi chiaro che si possono ottenere altre in- 
teressanti configurazioni di numeri primi semplice- 
mente mutando la locazione di partenza. 

Un'analisi cosi interessante come quella con- 
dotta da Ulam conduce, come daltronde accade 
spesso in matematica, a nuove congetture e proble- 
mi. Ci potremmo chiedere, ad esempio, se esistono 
linee rette contenetr infiniti elementi, in quale varia fa 
densità dei numeri primi dalle zone mferioni a quelle 
superiori della diagonale e ancora molti altri questiti 
che uno studio assiduo ci potrebbe proporre. 

Purtroppo dobbiamo ancor oggi riconoscere 
che la patina di fascino e di mistero che avvolge que- 
sti numeri è ben lungi dall'essere tolta nonostante i 
notevoli sforzi condotti dal l'uomo con l'ausilio dei 
mezzi tecnologici. 

Ancor oggi un numero con la base di una cifra e 
l'esponente di 5 rappresenta il limite quantitativo alle 
nostre conoscenze su questa classe numerica: (2 
elevato a 19937)-1, 


In questo articolo si sono citate solo una parte 
delle “curiosità" concernenti i numeri primi. Potrem- 
mo ricordare, ad esempio i numeri di Marsenne dove 
la realazione 2 elevato alla (P-1), al variare di p, pro- 
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La spirale dei numeri primi prodotta con quadratini da 4 punti 
(tempo di visualizzazione: un'ora e 1/2 circa). 



La spirale dei numeri primi prodotta punto a punto (tempo di 
visualizzazione; ore 3 e 30 minuti). 
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duce una notevole quantità di elementi primi. Ma il 
nostro intento era soprattutto quello di sottolineare 
quegli aspetti che più facilmente potremmo avere un 
contatto con il calcolatore e con le sue capacità grafi- 
che. 

In conseguenza di quanto è stato detto, propo- 
niamo il seguente programma che affronta i temi evi- 
denziati nellarticofo. 

Il programma consente di visualizzare le confi- 
gurazioni di numeri primi locate rispettivamente su 
una spirale, su un triagolo e su un esagono, a secon- 
do della opzione che si è scelta. 

All'Interno dì ciascuna opzione è possibile scegliere 
la dimensione dell’elemento da mettere in rilievo, na- 


turalemente tanto minore sarà la dimensione di que- 
st’ultimo e tanto maggiori saranno le nostre analisi 
quantitative. 

Se, ad esempio, abbiamo scelto una configura- 
zione a spirale e u na risoluzione di 2x2 dot, l’elemen- 
to verrà disegnato se è un numero primo altrimenti 
no. 

Non riteniamo necessario soffermarci ulteriore- 
mente nella descrizione del programma, poiché è 
sufficientemente autoesplicano comprensibile per 
chi ne vuole fare uso. Coloro che ritengono di poter 
fornire un contributo originale sono pregati di far per- 
venire il materiale alla redazione della rivista che lo 
vaglierà ed eventualmente io pubblicherà. 


1000 REM ****************** *##■*"#■*■*■* 


1010 REM * *■ 
1020 REM * IL MISTERO DEI * 
1030 REM * * 
1040 REM * NUMERI PRIMI * 
£050 REM * *■ 
1060 REM * * 
1070 REM * DI EUGENIO COPPARI * 
1080 REM * * 


1090 REM ********* *■*-■*■*■*■* #■*■*■■* 

UGO : 

1110 DIM CL(17> 

1120 PRINT " CCLEAR3"; TAB (7) ; 11 ZB D 
OWNI [BIANC01 CRVS! 


1220 


1 230 
1240 


1250 


1260 


1 1 30 
1 140 
1 150 
1 160 
1 170 
USO 
1 190 


PRINT TAB ( 7 1 


DISPOSIZIONI PART ISOLAR I " 


PRINT TRB (7) 

PRINT TAB (7) 
DEI NUMERI 
PRINT TPB (7 ) 

PRINT TPB <71 
(ATTENDERE 
PRINT TPB (71 


" [BIANCO! CRVS! 


*■ cbianco: crvs: 

ii 

,f [BIANCO! CRVS! 
PRIMI 

" [BIANCO! C ROSI 

ii 

11 [bianco: crvs: 

PREGO) " 

[bianco: [ros: 


FOR K*1 TD 4000! NE XT : PRINT 
CCLEAR! M 


1270 

1260 

1290 

1 300 

1310 

1320 

1330 


1200 print tab ci i >- » [ bianco: crvs: 

OPZIONI TRA CUI 

1210 PRINT TABU 1 )-" [BIANCO] [RVS! 
SCEGLIERE 


1340 

1350 


PRINT TftB(6);"C3 DOWN] IBI ANC 

□: crvs: i crooff: [verde: 11 ; lt 
[bianco: crvs: numeri naturali 

DISPOSTI " 

PRINT TAB (11) ; " [RVSJ A SPIRA 
LE 11 

PRINT TAB(6) - 11 E2 D0WN3 CBIANC 
OUCRVS! 2 [RVQFF! C verde: " ; ri 
[BIANCO: CRVS3 . NUMERI NATURALI 
DISPOSTI " 

PRINT TABU l> ; " CRVS! A TRIAN 

GOLD 

PRINT TAB (6) ; 11 [2 DOWN: EEIANC 
OICRVS: 3 CRV0FF1 [VERDE: ,, ; h 
[BIANCO! crvs: NUMERI NATURALI 
DISPOSTI 11 

PRINT TAB CI 1) ; H CRVS! A ESAGO 
NO 

PRINT TAB (11) ; ,r 12 DOWN] EB I A 
NCP! [RVS3 OPZIONE SCELTA : 

SET A*IF ( A O 1 AND A 0 2) AND 
A 0 3 THEN 1290 

PRINT TAB < 1 6) * A : FOR DE=1 TO 
2000: NE XT 
IF A^3 THEN 3720 
PRINT "ECLEARIÌ"; TAB(3 > ; " C3 D 

□wnj cbianco: crvsirisoluzione 

GRAFICA" 

PRINT TAB (3) ; " [BIANCO: ERVS3 
DELL 1 ELEMENTO 

PRINT 11 C2 DOWN: L3 RIGHTJ [BIAN 
co: [RVS: A : 3*3 DOT " 

PRINT U C2 DUWN! C3 RIGATI EBIAN 
C03 [ROSI B : 2*2 DOT " 
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1360 PRINT 11 12 DOUN3C3 R IBHT3 EBIfìN 
CCdCRVSJ C ! i*l DOT " 

1370 PRINT "C2 DOWN! C 3 RIGHT3 [BIAN 
CQJ CRVS3 OPZIONE SCELTA ? « 
1380 G£T A*:IF (ASO-A" AND A$ O " 
B" ) RND R*O tì C M THEN 1380 
1390 PRINT "CUPI 11 ; TAB (20) ; " IBI RNG 
Q] CRVS3 11 ;A*:FOR W=1 TO 200OSN 
EXT 
1400 = 

14Ì0 REM *********** ************** 
1420 REM * ROUTINE IN LM PER Lfi * 
1430 REM * PULIZIA DELLO SCHERMO * 
1440 REM ************************* 
1450 : 

1460 FOR K=49152 TO 49222= RERD P=P 
OKE K, P = NEXT 
1470 BA=8 192 * BYS49152 
1480 DATA 173,24,208,9,6,141,24,2 

08 

1490 DATA 1 73, 1 7, 206, 9, 32, 141, 17, 2 
08 

1500 DATA 169, 0, 133, 251, 169, 32, 13 
3, 252 

1510 DATA 160,0,169,0, 145,251,200, 
192 

1520 DATA 0,200,249,230,252,169,64 
, 197 

1530 DATA 252, 208, 239, 169, O, 133, 25 
1, 169 

1540 DATA 4, 133, 252, 160, 0, 169,3, 14 
5 

1550 DATA 251,200,192,0,208,249,23 
0, 252 

1560 DATA 169, 6, 1 97, 252, 208, 239, 96 
1570 IF R$="R U THEN V=15 
1580 IF A$= H B" THEN V=10 
1590 IF A*= U C U THEN V=7 


1600 

IF 

A=1 

RND 

A** "A" 

THEN 

1760 

1610 

IF 

A=1 

RND 

fl$="B 11 

THEN 

2040 

1620 

IF 

A=1 

RND 

A$= "C" 

THEN 

2220 

1630 

IF 

R=2 

RND 

AS^A" 

THEN 

2390 

1640 

IF 

A=2 

RND 

A$= "B 11 

THEN 

2610 

1650 

IF 

R=2 

AND 

A$= "C" 

THEN 

2020 

1 660 

IF 

A=3 

AND 

A$= "A 11 

THEN 

3030 

1670 

IF 

A=3 

RND 

A* = ir B" 

THEN 

3300 

1660 

1690 

IF 

R=3 

RND 


THEN 

3550 


1700 REM ****** *** ********* ******* 
1710 REM * DISEGNA UNA SPIRALE * 
1720 REM * IN RISOLUZIONE * 


1730 REM * 3X3 DOT * 

1740 REM ************************* 
1750 : 

1 760 CL C 1 > =-3 = CL < 2) =960 : GL ( 3 ) =3 s CL 
(4) =-960 = GL <73=0: GL (6) =-l :CL( 
93 =~2 5 CL (IO) =316 

1 770 CL (1 1 ) =630 = CL C 1 2 ) =639 = CL (13) = 
640 :CL ( 14 ) =320 s CL (15) =319 
1 700 FOR Al = l TO 2 
1790 U 1=32097+3* (Al) :TU=U1 =GDSUB 1 
910 

1000 NEXT RI 

1810 U 1 =3 1 143 = F=2 = E=1 = Tl=— 1 
1820 T 1 =T 1 + 1 s Q 1 =CL ( T 1 ) s I F Tl=4 THE 
N T 1 =0 

1830 IF Ql=-3 DR Gl =3 THEN E=E+1 
1040 FOR TU=(U1+01) TO (Ul+(E*Q1)) 
STEP Q1 

1850 GOSUB ISSO 

1860 NEXT TU!U1=U1+E*Q1 iGOTO 1820 
1870 = 

1000 F= F+l 

1090 FOR Gl =2 TO SQR(F)=IF F/G1= 
INT (F/Gl ) THEN RETURN 
1900 NEXT Gl 
1910 FOR Z 1 =7 TG V 

1920 V- I NT ( (TU+CL (ZI)) /320) £ X = TU+ 
CL (ZI) *~Y*320 

1930 CH= INT(X/S):RO= INT(Y/B)=LN= 
Y RND 7 

1940 BI=7-(X RND 7) 

1950 BY=BA+R0*320+B*CH+LN 
I960 POKE BY, PEEK(BY) OR (2^BI):N 
EXT ZI! RETURN 
1970 l 

1980 REM ************************* 
1990 REM * DISEGNR UNA SPIRALE * 
2000 REM * IN RISOLUZIONE * 

2010 REM * 2X2 DOT * 

2020 REM ************************* 
2030 s 

2040 CL < 1 ) =—2 ! CL ( 2 ) =640 = CL (3) =2 * CL 
( 4) =—640 = CL (7) =0 = CL (8 ) =- 1 
2050 CL (9) =31 9 = CL ( 10 ) =320 
2060 FOR Al=l TO 2 
2070 U 1=32098+ (2* Al ) = TU=U 1 = GOSUB 
1910 

2080 NEXT Al 

2090 U 1=3 1462 = F=2 i E=I = Tl=— 1 
2100 T1=T1+1 =Q1=CL(T1) : IF Tl-4 TH 
EN T 1=0 


CruTHììodorc 



2110 IF Ql=— 2 OR Q 1-2 THEN E=E+1 
2120 FOR TU= <U1 + □ 1 ) TD CUl+(E*Qin 
STEP Q1 

2130 GGSUB 1880 

2140 NEXT TU:U1=U1+E*Q1 sGQTO 2100 
2150 s 

2160 REM ************* **##***#***# 
2170 REM * DISEGNA UNA SPIRALE * 
2 1 SO REM * IN RISOLUZIONE * 

2190 REM * 1X1 DOT * 

2200 REM *******#**#*****#*####-ii--** 
2210 : 

2220 GL < 1 ) =- 1 i CL < 2 ) =320 : CL ( 3 > * 1 = CL 
(4) =="320 

2230 FOR A 1=1 TO 2 

2240 U 1=32099+ Al t TU=U1 s GOSUB 1910 

2250 NEXT Al 

2260 U 1=3 1781 * F=2 • E=1 s Tl=~ 1 
2270 Tl«Tl+i sQi«CL(Tl) sIF Tl=4 THE 
N T 1 =0 

2280 IF Q 1 =- 1 OR Bl=l THEN E=E+1 
2290 FOR TU= (LEI +Q1 > TO (Ul+(E*Q1)) 
STEP 01 

2300 GOSUB 1880 

2310 NEXT TU:U1=U1+E*B1 sGOTO 2270 
2320 * 

2330 REM ************** *#** ***-*-* *** 
2340 REM * DISEGNA UN TRIANGOLO * 
2350 REM * IN RISOLUZIONE * 

2360 REM * 3X3 DOT * 

2370 REM * ****#***#■■**-**###** **-*##* 
2360 

2390 CL (1) =957 sCL (2) =3 s CL ( 3) =-963 : 
CL (75 =0:CL<B)=-1 s CL (9 ) =-2 s CL ( 
105=318 

2400 CL (11) =638 = CL < 12) =639 s CL 1 1 3 ) — 
640 s CL < 14) =320 1 CL (1 5 ) =3 1 9 
2410 FOR A 1 = 1 TD 2 

2420 U1=32147+3*A1 :TU=U1 sGOSUB 191 
0 

2430 NEXT Al 

2440 E = 1 s F=2 s Ul=31 190 * GOTO 2510 

2450 T 1=T 1+ 1 s IF T 1=4 THEN Tl = I 

2460 Q1=CL < T 1 J 

2470 IF T 1=2 THEN N=N+1 

2400 IF T 1 = 1 THEN E=E+1 

2490 IF T 1=2 THEN E=e+CI+2*N> 

2500 IF TI =3 THEN E=E-2*N 
2510 FOR TU= ( U1 +0 1 ) TO <U1+(E*Q1)) 
STEP Q 1 

2520 GOSUB 1800 

3fj ’ Commodore 


2530 

2540 

2550 

2560 

2570 

2500 

2590 

2600 

2610 


2620 

2630 

2640 

2650 

2660 

2670 

2600 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2800 

2810 

2820 

2830 

2840 

2050 

2860 

2870 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 


NEXT TU s U1=U1 +E*0 1 sGOTO 2450 

REM ****#*******##**■*■***-*#■■#** 
REM * DISEGNA UN TRIANGOLO * 
REM * IN RISOLUZIONE * 

REM * 2X2 DOT * 

REM #****#*********-*****■*■****- 

CL ( 1 ) =638 : CL C 2 > =2 : CL < 3) =-642 s 
CL ( 7 > =0 1 CL ( 8 ) =- 1 s CL < 9 ) =31 9 s CL 
CIO) =320 
FOR A 1 = 1 TO 2 

Ul=32147+2*AlsTU=Ul sGOSUB 191 
0 

NEXT Al 

U1=3Ì509*£=Ì :F=2SBDT0 2720 
TI =T1+ 1 s IF TI =4 THEN Tl=l 
Q 1 =CL (TI ) 

IF TI =2 THEN N=N+1 
IF T 1 =1 THEN E=E+ 1 
IF TI =2 THEN E=E+ ( 1+2*N> 

IF TI =3 THEN E=E-2*N 
FOR TU= (Ul+Ql) TO CU1+(E*Q1)> 
STEP Q1 
GOSUB 1880 

NEXT TUSU1=IU+E*Q1 sGOTO 2660 

REM * ■****#■ *#■***#*#**■** *+■#**** 
REM * DISEGNA UN TRIANGOLO # 
REM * IN RISOLUZIONE * 

REM * 1X1 DOT * 

REM *#**###***■*#***#*** **-*##* 
; 

CL ( 1 ) =319? CL (2) =1 sCL (3) =-321 
FOR A 1 = 1 TO 2 

U1 =32 14 7+ Al s TU=U1 s GOSUB 1910 
NEXT RI 

U1=31828:E=1 SF=2SGDT0 2930 
T 1 =T 1+1 s I F T 1=4 THEN Tl=l 
63 1=CL < T 1 ) 

IF T 1=2 THEN N=N+1 
IF T 1=1 THEN E=E+1 
IF T 1=2 THEN E=£+(H2*N) 

IF T 1=3 THEN E=E-2*N 
FOR TU=(U1+Q1) TO (Ul+(E*Q1>) 
STEP 01 
GOSUB ISSO 

NEXT TU=U1=U1+E*Q1 SGOTO 2870 

i 

REM ************************* 
REM * DISEGNA UN ESAGONO * 



4544 

225 *r : 
4 colori 


4542 

250 -r 
2 colori 


MODULO CONTINUO 
156 COLONNE 

8 INTERFACCE ED EMULAZIONI 

MAC ROC ARATTE RI IN MULTIDIMENSIONE 

12 CODICI BARRE 

GRAFICA PLOT 10 INTELLIGENTE 

ALTO CARICO DI LAVORO (HEAVY DUTY) 

ALTA AFFED ABILITA’ 


MILANO; Via Toffetli. 2 - Milano - Tel. 02/51)94245 
ANCONA: Via E. Profili, 16/18 - Fabriano Tel. 0732/22259 
BERGAMO; Via Borgo Piazzo, 90 - Bergamo - Tel. 035/233909 
BOLOGNA: P.zza Porta Mascella, 7 - Bologna - TeL 05 1/238105 
CAGLIARI: Via Pascoli, 3 - Decimoitiannu - Tel. 070/961600 
CATANIA: Vie Vittorio Veneto, 160 - Catania - Tel, 095/37201 1 
FIRENZE Via Don Minzoni, 9 - Calcano - Tei 05 5 /fi 879246 
GENOVA; Piazzetta del Centra 17 - Arenzano - Tel, 010/9111677 
PERUGIA: Via Mairabotio, 18 - Ciglione Del Ugo Tel 075/953844 
ROMA: Via M. Garosi. 98 - Roma - TeL 06/5204548 
SALERNO: Via Raffaele Mauri 15 - Salerno - TeL 089/324721 
TARANTO: Vie Vii#», 53 - Taranto - Tei 099/339916 
TORINO; Via Artisti, 36 - Torino - TeL 01 1/832620 
TRAPANI; Vii Orti 63 - Trapani - TeL 0923/27981 
TREVISO; Via Borgo Treviso, 45 - Castelfranco - Tei. 0423/496222 



2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 
3090 
3 1 00 

3110 

3120 

3130 

3140 

3150 

3160 

3170 

3100 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3200 

3290 

3300 

3310 

3320 

3330 

3340 

3350 

3360 

3370 


REM * IN RISOLUZIONE * 
REM * 3X3 DOT * 
REM ************************* 


3380 

3390 

3400 


CL U > =-963 : CL ( 2 ) =-3 : CL < 3 ) =957 
:CLC4)=963:CL C5) =3*CL<£> =-957 
CL (7 ) =0 ! CL (0>=-l :CL(9>=-2:CL < 
1G> =318 : CL C 1 1 ) =638 : CL C 12) =639 
CL (13) =640 ! CL ( 14>«320SCL( 15) = 
319 

FOR fil = l TD 2 

UÌ-32147+3*flHTLHUi:QOSUB 191 
0 

NEXT AUF=2 
POR T3= 1 IO Xl~l 
U 1 =32 153+3+T3 • TU=U1 2 GDSUB 18 
00 

NEXT T3 

U 1 =32153+3* (T3—1 ) 

TI =T 1+1 5 IF T 1 -7 THEN Tl = l 
Q1=CL(T1) 

ON T 1 GOTO 3160,3100,3190,3160 

,3100, 3190 

IF T 1 =1 THEN E=E+ 1 

IF T 1 =1 OR T 1 =4 THEN FU=E 

IF TI =2 OR TI =5 THEN E=X1“ SG 

N( ) ) 

IF T 1=3 OR Tl=6 THEN E=FU 
FOR TU=(U1+Q1) TO (U1+(E*Q1)) 
STEP Q1 
GOSUB 1880 

NEXT TU:U1=U1+E*Q1 iGQTO 3130 

* * 

« 

REM ************************* 
REM * DISEGNO UN ESAGONO * 

REM * IN RISDUJZ IGNE * 

REM * 2X2 DOT * 

REM ************************* 


3410 

3420 

3430 

3440 

3450 

3460 

3470 

3400 

3430 

3500 

3510 

3520 

3530 

3540 

3550 

3560 

3570 

3580 

3590 

3600 

3610 

3620 

3630 

3640 

3650 

3660 

3670 

3680 

3630 


CL < 1 ) =-642 s CL ( 2) =“2 s CL (3) =638 
:CL (4) =642iCLt5) =2:CL (6) =-638 
CL (7) *0iCL(8) =-l :CL(9) =319: CL 


3700 

3710 

3720 


(10) =320 

for m = i ra 2 

U 1=321 47+2*01 :TU=U1 : GOSUB 

o 

NEXT 0 1 1 F =2 

FOR T3=i TO Xl-1 

U1=32151+2*T3:TU=U1 : GOSUB 


191 


3730 


3740 


188 


3750 


0 

NEXT T3 


3760 


Tl-Tl+llIF TI =7 THEN Tl-1 
Ql-CL(Tl) 

ON T1G0T0 3410,3430,3440,3410 

, 3430, 3440 

IF T 1 =1 THEN E=E+1 

IF T 1=1 OR TI =4 THEN FU=E 

IF Tl=2 OR T 1=5 THEN E=X1- SG 

N(l+K) A (tl)) 

IF TI =3 OR T 1 =6 THEN E=FU 
FOR TU= (Ul+Ql ) TO <U1+(E*Q1>> 
STEP DI 
GOSUB 1880 

NEXT TUsUl=Ul+E*Dl sGOTO 3380 

REM ************************* 
REM * DISEGNA UN ESAGONO * 

REM * IN RISOLUZIONE * 

REM * 1X1 DOT * 

REM ************************* 

CHI >=-321 iCL C2>— 1 :CL<3) =319 
SOL (4) =321 s CL (5) =1 ! CL (6) =-319 
FOR A 1 = 1 TO 2 

U1 =32147+0 1 s TU=U l : GOSUB 1910 
NEXT Al : F=2 
FOR T3=l TO Xl-1 
U1=32149+T3:TU=U1 JGOSUB 1880 
NEXT T3 

T1=T1+1 ! IF T I =7 THEN Tl=l 
Q1=CL(T1) 

DN T1GOTO 3650,3670,3680,3650 

, 3670, 3680 

IF T 1=1 THEN E=É+ 1 

IF T 1 = 1 OR Tl=4 THEN FU=E 

IF TI =2 OR T 1*5 THEN E-Xl- SG 

N (1+ (-1) A (T1> > 

IF T 1=3 OR T 1 =6 THEN E=FU 
FOR TU= < U 1 +0 1 ) TO (U1+E*Q1> S 
TEP Q1 
GOSUB 1880 

NEXT TU!U1=U1+E*Q1 ! GOTO 3620 
PRINT *' CCLEAR3 " ; TABC7);'' 14 D 
0WN1 [BIANCO! CRVS1 QUALE VALORE 
DESIDERI PER " 

PRINT TAB (7) ; " [BIANCO! EROS! 

11 

PRINT TAB (7) CBIANCOI CRVS3L 
A BASE DELL’ESAGONO ? “ ; 

SET XI s IF X 1-0 THEN 3750 sPRI 
NT XI 
GOTO 1320 


38 - Commodore 


hH 


computer System 


s.a.s. di Gloriano Rossi e C. 

C.so Porta Nuova 46 - 20121 Milano 
Tel. 02/6599547-6575115 - Telex 324331 


rivenditore autorizzato 

Commodore 




Software 


Prodotti 

Accessori 

Assistenza 


Assistenza software per Commodore, Sanyo, NCR, Sirius- Victor e tutti i 
personal compatibili 1BM-PC. 

KHMODEM, il demodulatore ideale per la trasmissione e ricezione dei dati 
(Baudot, ASCII, RTTY, CW). 


Rivenditori di zona: 

CREMA: EDP ANSWER di A. Guerei - Via Borlotto 1 - Te!. 0373-59140 . 

BIELLA: H.D.S. Home Data System di Mantèllaro - Vìa Italia 50/a - Tel. 015-28620 



TELCOM 

DUE CARTE IN PIU’ 

LA NUOVA STAMPANTE JUKI A MARGHERITA 
LA NUOVA STAMPANTE MITSUI AD AGHI 


JUKI 6100 


MITSUI Serie MC 



gioca la carta 


finalmente una stampante A MARGHERITA 
accessìbile a tutti per lì suo BASSO COSTO. 

La caratteristica fondamentale di una stampante 
a margherita è fa stampa a carattere pieno che 
garantisce una qualità di scrittura indispensabile 
per la corrispondenza automatica e il trattamento 
delle parole. L atto prezzo di queste stampanti ne 
ha sempre impedito l'utilizzo In sistemi a basso 
costo quali personal desk-top computers e 
micro in genere. 

JUKI 6100 è h prima stampante a margherita 
che garantisce : 

- prestazioni elevate 

- affidabilità 

- qualità di stampa 

- prezzo coerente con i piccoli sistemi 
JUKI 6100: un passò avanti in tecnologia 
un passo indietro nel costo 


Le stampanti della MITSUI rappresentano la 
continuità Telcom nella polìtica del 'LOW-COST" 
con caratteristiche e qualità competitive: 

- Velocità di 1 20/1 60 caratteri al secondo 

- Testina a 9 aghi; 80/132 colonne 

- Trascinamento per fogli singoli, per rotoli o per 
modulo continuo 

- Interfaccia parallela e seriale 

- Scrittura normale; espansa e NLQ 

- Set di 95 caratteri 

- Affidabilità elevata 

- Ridotto costo di esercizio 

MITSUI Serie MC: le stampami "giuste" 
per micro e personal* 


*• a ék 


àctverleam 




DUM 1541 

di Niki f2YNJ 



Quando un possessore di Commo- 
dore 64 o Vie 20 acquista l'unità a 
floppy disc modello CBM1541 o 
1540, si trova inevitabilmente a sco- 
prire un nuovo mondo di comandi. 
Ciò naturalmente crea un pò di pani- 
co ed è inevitabile un pò di "casino” 
in testa. 

Fino a ieri eravamo abituati a 
salvare su nastro i nostri programmi 
(SAVE “pippo’T oppure memorizza- 
re dati (OPEN "dati", 1,1), senza cu- 
rarci d'altro se non di inserire una 
cassetta vergine nel registratore e 
seguire i comandi suggeriti dal com- 
puter medesimo (PRESS PLAY ON 
TAPE). 


Con ì dischi, le cose sembrano 
più complicate. Ma non è vero. Anzi 
ci accorgeremo che, man mano ci fa- 
miliarizzeremo con i! floppy, sola- 
mente pensare di tornare al registra- 
tore ci sembrerà una cosa addirittura 
tediosa. 

Per facilitare un primo ap proc io 
con l'unità floppy e per avere uno 
strumento di utilità anche In futuro, vi 
suggeriamo di digitare questo pro- 
gramma: 

Il ' DUM 1541 

Questo programma, che permet- 
te a liuti lizzatone di un homo com- 


puter Commodore una veloce e 
semplice gestione de! drive 1 541 
o 1540, raggruppa delle routine 
che servono per la formattazione 
e per il controllo della direclory 
del disco. 

Dopo aver digitato per intero 
il programma sarà sufficiente atti- 
vare le varie funzioni semplice- 
mente inserendo il numero corri- 
spondente alla riga del menu che 
appare su video e quindi premere 
RETURN, 

Qui di seguito vengono ri- 
portare le varie spiegazioni detl© 
funzioni dei programma * DUM 
1 54 1 -, ed insieme afle spiegazio- 


Commodore 4 ; 




COMPUTER 
QUESTO 
MESE 
È QUESTO 



IN.Ò; ■ [myyoo ■ ir\tWSMAGAZÌNE''dElTÌNfoRMATÌCA 



K) Vili -In 67 - 25 maggio 


Speri Abb posi qr Tlì 70 Tassa pagaia pef IP - Disk' MeFe 


Digitare stanca 


Era Ibm, 
anno secondo 


Sempre 
più veloci, 
ma perchè? 


Computer 
con tatto 


Benchmark: 
Rainbow 100 + 
Digital Equipment 
















ni anche il parallelismo dei co- 
mandi che avremmo dovuto digi- 
tare per ottenere il medesimo ef- 
fetto. 

1. Directory disco. Questa funzio- 
ne legge la directory del disco, 
elencando i programmi ed ì files 
che sono stati scritti. In modo di- 
retto avremmo dovuto digitare; 

LQAD H T, 8 (RETURN) 

LIST (RETURN) 

Premere RETURN per tornare al 
menù. 

2 . Formattazione nuovo disco, tl 
tuo computer, o meglio Punita di- 
sco, non può utilizzare un disco 
nuovo che hai appena comprato 
in quanto questo è vergine non è 
quindi ancora formattato. Prima 
della formattazione vera e pro- 
pria il programma chiede il nome 
che vogliamo attribuire al disco, 
ed anche un identificatore costi- 
tuito da due caratteri alfanumeri- 
ci, In modo diretto avremmo do- 
vuto digitare: 

OPEN 15,8,15 

PRINT , 15,"NEWO; nome del 
disco, identificatore'' 

CLOSE 15 

3. Inizializzazìone disco . A volte è 
possibile che un identificatore sia 
uguale a quello di un altro dis- 
chetto e quest’ultimo sia stato il 
precedente nel drive, oppure può 
accadere che si verifichi un erro- 
re dì lettura della directory del di- 
sco. In questi casi è necessario 
dare il comando di inlzlalizzazio- 
ne, il modo diretto avremmo do- 
vuto digitare: 

OPEN 15,8,15 

PRINT ,15,'INITÌALIZEO” 

CLOSE 15 

4: Copia file su disco. Serve per 
copiare un file sullo stesso disco 

44 - Commodore 


cambiando naturalmente il no- 
me. 

Se la spia rossa lampeggia 
si ha una condizione di errore che 
può essere causata da varie ra- 
gioni (nome già presente, disco 
pieno, eie.). Per conoscere l’e- 
ventuale ragione dì errore potete 
usare la funzione 1 1 . ERRORE 
DI STATO. Questa non copia i fi- 
les protetti. 

In modo diretto avremmo 
dovuto digitare: 

OPEN 15,8,15 

PRINT t 15, “COPYO: nome 
del file nuovo =0: nome del file 
vecchio'' 

CLOSE15 

5. Copy file su un disco nuovo già 
formattato , Questa funzione leg- 
ge il fife dal disco sorgente e lo 
trasferisce nella memoria del 
computer. H file a sua volta viene 
trasferito dalla RAM al disco de- 
stinazione. 

La massima capacità di co- 
pia di questa opzione è di 66 
blocchi. Questa routine non è 
molto veloce poiché impiega un 
minuto per sei blocchi di pro- 
gramma. 

In modo diretto avremmo 


dovuto digitare: 

LOAD "nome del programma”, 8 

cambio del disco 

SAVE "nome del programma”, 8 

6. Copia dì programmi DOS. Que- 
sta opzione serve per poter tras- 
ferire velocemente i programmi 
DOS dal disco tesi all'interno del 
buffer e da questo verso un altro 
disco nuovo e formattato. In mo- 
do diretto avremmo dovuto digi- 
tare per ogni programma: 

LOAD M nome del programma", 

8,1 

cambio del disco 

SAVE "nome del programma”, 8,1 

7. Rinomina file. Serve per sostituire 
in nome di un file con il nuovo nome. 

In modo diretto avremmo dovuto 
digitare: 

OPEN 15,8,15 

PRINT , 15, "RENAMEO: nome del 
file nuovo = nome del file vecchio' 1 
CLOSE 15 

8. Cancella file , Per cancellare uno o 
più files errati o indesiderati dal disco 
basi a digitare il nome del file da can- 
cellare. 

In modo dijetto avremmo dovuto 
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digitare: 

OPEN 15,8,15 

PR1NT 15, “SCRATCWO: nome 
de* file" 

CLOSE15 

9, Convalida file. Si utilizza questa 
funzione per riordinare la directory 
del disco, chiude in olire i files rimasti 
aperti e cancella quelli non corretta - 
mente cancellati, 

in modo diretto avremmo dovuto 
digitare: 

OPEN 15,8.15 


PRINT 15, "VAUDCATEO" 
CLOSE15 

W Copia il gesti disco. Serve per 
salvare il DUM 1 541 su un dischetto 
qualsiasi senza intervenire con il 
bad e il save. 

Il modo diretto avremmo dovuto 
digitare: 

SAVE ' nome del programma" 

ih Errore di stato. Questa routine 
controlia e informa l'operatore su 
eventuali errori del drive visual ìzz an- 
dò il tipo errore. Dal numero d 1 errore 


poi si può risalire alla descrizione del- 
l'errore consultando il libretto d’istru- 
zione del drive Commodore, 

In modo diretto avremmo dovuto 
digitare: 

OPEN 15,8,15 

INPUT 1 5, A$. 8$, C$, DS 

PRfNT A$, B$, C$< DS, 

CLOSE15 

12. Ritorno al Basic . Questa è la fine 
del programma serve per ritornare 
ad usare il calcolatore normalmente. 
Il programma DUM 1541 rimmarrà 
comunque in memoria. 


3 PQKE 49152, 10UF PEEK149152) 
<>10 THEN C0=1 : GOTO S 

5 C0=2 

6 DIM D0Stf<65) 

7 FR- FRE (0) s IF FR<0 THEN FR=FR 
+65536 

0 S=<FR-400) /2iM2= INT(S/256>+l 
9 DIM TEMPII CS) 

10 PRINT 11 CCLEPRH 11 ; 

11 REM ****************** 

12 REM +* I2YNJ MIKE ** 

13 REM ** M0N2R MI ## 

14 REM 

15 PRINT 11 ******************** M 

20 PRINT 11 * GESTI DISCO 

25 PRINT 11 ****************** ]f 

50 PRINT SPRINT 11 1, DIRECTORY DI 
SCO” 

60 PRINT ,f 2- FDRMPTTRZ IONE NUOVO 
DISCO 1 ' 

70 PRINT » 3- INI Z I PLI 22RZ 1 ONE DI 
SCO* 1 

SO PRINT '■ 4. COPIA FILE SU DISCO 

■I 

S5 PRINT " 5. COPIO FILE SU NUOVO 
(FORMATTATO) DISCO 
68 PRINT " 6. COPIA ENTRAMBI DOS 
WEDGE PROGRAMMI" 

90 PRINT " 7. RINOMINA FILE" 

100 PRINT " 8. CANCELLA FILE(S)“ 
110 PRINT " 9. CONVALIDA FILES" 

120 PRINT "IO. COPIA IL GESTI DISC 
0 " 

130 PRINT "11. ERRORE STATO " 
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140 PRINT "12. RITORNO AL BASIC":P 
RINT 

170 INPUT "SCELTA C4 LEFT]";CH 
O ICE 

160 IF (CHOICE < 1 ) OR (CHOICE) 12) 
THEN PRINT " CUPI GOTO 170 
200 ON CHOICE GOSUB 250,300,350. 
400, 800, 1200, 450, 500, 550, 600, 
£50, 700 
210 GOTO 10 

250 REM *** DISPLAY DIRECTORY ** 
* 

251 PRINT " CCLEAR] " 

252 OPEN 1, 8, O, 

253 GET #1, A*, B* 

254 GET #1, A*, B* 

256 GET #1, A», B* 

258 C=0:IF A$ <> " " THEN C= ASC (A») 
260 IF etO '"' THEN C=C+ ASC(B*)*2 
56 

262 PRINT MID*< STR*(C>,2>; TABI 
3) ; 

264 GET #l,B$sIF ST O 0 THEN 282 
266 IF 6*0 CHR$ ( 34) THEN 264 
268 GET #1,B*:IF B*<> CHR*<34> TH 
EN PRINT Bt ; : GOTO 268 
270 GET #1,B*(IF B*= CHR$<32> THE 
N 270 

272 PRINT TABU8) ; :C9>="" 

274 C*=C*+B*:GET #1,B*!IF B*{>"" 
THEN 274 

276 PRINT LEFT*(C*,3) 

280 IF 5T=0 THEN 254 

282 PRINT "BLOCCHI UBERI" 


286 CLOSE I SPRINT SPRINT SPRINT " 
PREMI UN TOSTO QUOLUNQUE PER 
IL MENU’ " 

290 SET X*:IF X*="" THEN 290 
295 RETURN 

300 REM *** FORMATTAZIONE DISCO 

***■ 

301 PRINT "CCLEAR3" 

305 PRINT "INSERISCI IL DISCO" spR 
INT "DO FORMATTORE" 

310 PRINT "TITOLO DEL DISCO ":INP 
UT DISK* 

320 PRINT SPRINT "IDENTIFICATORE 
DISCO "i INPUT EXT* 

325 MOCRO*=‘'NO: "+DI5K*+", "+EXT* 
330 OPEN 15, 8, 15, MOCRO* 

340 CLOSE 15 : MOCRD*=" " s RETURN 
350 REM *** INIZI OL I Z AZ I ONE DISC 
0 " 

355 PRINT " CCLE0R3" 

360 PRINT "INSERISCI IL DISCO" sPR 
INT "DO INI ZIRLI ZZARE" SPRINT 
370 PRINT "PREMI (RETURN! PER ":PR 
INT " INI ZI OLI ZZORE" : INPUT X* 
380 OPEN 15, 8, 15, " I " 

390 CLOSE 15S RETURN 
400 REM *** COPIO DEL FILE SULLO 
STESSO DISCO *** 

405 PRINT " CCLE0R3 " SPRINT SPRINT 
410 PRINT "NOME DEL FILE INIZIOLE 
" i INPUT DISK* 

420 PRINT SPRINT "NUOVO NOME DEL 
FILE "s INPUT NWS* 

425 MQCRO*="C: "+NWS*+ " = "+DI SK* 

430 OPEN 15, 8, 15, MRCRO* 

440 CLOSE RETURN 

450 REM *** RINOMINO FILE *** 

455 PRINT *' [CLEORI " SPRINT 
460 PRINT "VECCHIO NOME DEL FILE" 
: INPUT DISK* 

470 PRINT SPRINT "NUOVO NOME DEL 
FILE "s INPUT NWS* 

475 MOCRO* = "R: " +NW5*+ " *= " +D I SK* 

480 OPEN 15, B, 15, MOCRO* 

430 CLOSE 15 s MOCRQ*= " “ • RETURN 
500 REM *** CONCELLOZ IONE FILE * 
** 

505 PRINT " CCLEORI" SPRINT SPRINT 
510 PRINT "NOME DEL FILE DO CONCE 
LLO RE " s I NPUT DISK* 

520 PRINT SPRINT SPRINT "PREMI QU 


PLUNQUE TOSTO PER CANCELLARE" 
525 GET XSsIF X*=" H THEN 525 
530 MACRO*= "SO ! " +DISK* 

535 OPEN 15, 8, 15, MOCRO* 

540 CLDSE 1 5s MOCRO*- RETURN, 

550 REM *** CONVALIDO FILES *** 
555 PRINT "ECLEAR3" SPRINT SPRINT 
560 PRINT "PERICOLO : FILES OPERT 
0" SPRINT "POTREBBE ESSERE CON 
CELLOTO" 

570 PRINT SPRINT SPRINT "PREMI QU 
OLUNQUE TOSTO PER CDNVALIDORL 
O" 

575 GET X* s I F X*»"" THEN 575 
500 OPEN 1,8, 15, "V" 

590 CLOSE li RETURN 

600 REM *** SALVO IL GESTI DISCO 

*** 

605 PRINT " CCLE0R3 ” SPRINT SPRINT 
610 PRINT "INSERISCI IL DISCO DO 
SCRIVERE" SPRINT 

620 PRINT SPRINT SPRINT "PREMI QU 
OLUNQUE TOSTO PER SALVARE IL 
GESTI DISCO" 

622 GET X* s IF X*="" THEN 622 

625 OPEN 1,8, 15 

630 SOVE "20S GESTI DISCO", a 

635 CLOSE 1 

640 RETURN 

650 REM *** VISUOL I ZZO LO CONDIZ 
IONE DELL’ERRORE *** 

655 OPEN 15,8,15 

660 INPUT#15,0*,B*,C*,D* 

670 PRINT " [CLE0R3 " SPRINT SPRINT 
6aO PRINT "CONDIZIONE D’ ERRORE 3 
" B* s PRINT SPRINT "ERRORE NU 
MERO: "0* 

690 PRINT SPRINT SPRINT "PREMI QU 
OLUNQUE TOSTO PER RITORNARE" 
695 GET X* s I F X*^ 1 " THEN 695 
697 CLOSE 1 Ss RETURN 
700 REM *** RITORNO OL BASIC *** 
705 PRINT " CCLE0R3 " SPRINT SPRINT 
710 PRINT "NOTO: IL PROGROMMO GEST 
I DISCO E’ ANCORO MEMORI ZZATO" 
720 END 

800 REM *** COPIO DEL FILE *** 

801 PRINT " CCLE0R3 " 

802 CLOSE 15 

803 MPX= INT (S/256) 

804 PRINT "LO DIMENSIONE DEL FILE 
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ao6 

Q07 

eoa 

aog 

aio 

620 

830 

040 

050 

860 

870 

880 

B90 


900 

910 

920 


930 

940 


950 


960 

970 

900 

985 

990 

995 

1000 

1002 

1004 

1006 

1008 
1 009 


CHE PUD’ ESSERE COPIATO E s 
"MAX "BLOCCHI " SPRINT 
IF MAX>=M2 THEN GOTO B09 
PRIMI "PER COPIARE FILE SUPER 
JORI A^MS 1 * BLOCCHI t ” ; 

PRINT "SPEGNI E RIACCENDI IL 
COMPUTER RICARICANDO IL PRG" 
PRINT SPRINT 11 LEGGE/ SALVA C 
IRCA 6 BLOCCHI AL MINUTO" 
PRINT : PRINT 11 SCRIVI IL NOME 
DEL FILE DA COPIARE" 

INPUT FILE* 

PRINT SPRINT 11 INPUT FILE T 
YPEs" 

PRINT " P PROGRAMMA" 

PRINT " S SEQUENZIALE" 

PRINT » U UTENZE" 

PRINT " R RELATIVO" 

I NPUT TYPES 

PRINT SPRINT "INSERIRE IL DIS 

CO SORGENTE E PIGIARE <RET 

URN) " 

GET WfcsIF WS = I,Ai THEN GOTO 900 
GOSUB 1000: REM READ FILE INI 

0 TEMP 

PRINT SPRINT "INSERIRE IL DIS 
CO DESTINAZIONE E PIGIARE* (RE 
TURNI 11 

GET UISSIF WS= t,M THEN GOTO 930 
GOSUB 1 050 s REM WRITE FILE FR 
OM TEMP* 

PRINT SPRINT "ESEGUI UN ALTRA 
COPIA " ; s I NPUT 

IF LEFT*<W$, 1)=*"Y" THEN GOTO 
920 

GOTO 1100 

REM - TEST PER UNA BUONA APE 
RTURA 

INPUT#! 5, A$, BS, CS, DS 
IF VAL<PS)=0 THEN RETURN 
PRINT A$, E-tS, CÌ T D$-CLDSE 15iST 
OP 

REM - READ FILE INTO TEMP* 

1 = 1 

OPEN 15, 0, 15 

□PEN 5 1 0, 5, "05 "+FILE*+% "+TYP 
£* + % R" 

GOSUB 900 

PRINT " STO LEGGENDO, , . 


1012 

1014 

1016 

1018 


1020 
1 050 
1052 
1054 

1056 

1057 

1050 
1 060 
1062 
1064 
1066 

1068 
1100 
1 200 

1205 


1210 

1215 

1210 

1219 

1220 
1225 


i 230 
1235 


1240 

1245 

1250 

1255 


1010 GET 45, A* 


'1290 
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TEMP%<I>= ASC<P*+ CHRS (0 ) ) 

1 = 1 + 1 

IF ST=0 THEN 1010 

PRINT ì PRINT "FI LE=? ";FILE* 

, "ST=" : ST, "EYTES=" ; I :CLOSE 5 

: CLOSE 15 

RETURN 

REM - WRITE FILE FROM TEMP* 
□PEN 15, B, 15 

OPEN 5, B, 5, "OJ "+FILE*+", " +TYP 
E*+", W" 

GOSUB 980 

PRINT “ STQ SALVANDO. . , 


J=i 

PRINT#5, CHR*tTEMP7t (J) ) ; 

J=J+1 

IF J<I THEN 1060 

PRINT SPRINT "FILE= " ; FILE*, " 

BYTES=" ; JsCLQSE 5:CL0SE 15 

RETURN 

RETURN 

REM *** COPIO DEI PROGRAMMI 
DOS *V* 

PRINT " CCLEAR] " 1PRINT "INSERÌ 
RE IL DISCO SORGENTE CON WED 
GE E DOS" 

PRINT " PROGRAMMO E PIGIO < 
RETURN) " 

GET W$:IF W*=’ M * THEN GOTO 121 
5 

TYPE$=''P" 

IF C0=1 THEN FILE*="VIC— 20 WE 
DGE" : GOTO 1235 

F I LE* = " C— 64 WEDGE" iGOSUB 1000 
FOR C=1 TO 64:D0S%(C)=TEMPX(C 
JSNEXT C : REM MOVE C-G4 WEDG 
E TO SMALL BUFFER 
F ILE$= " DOS 5. 1 " 

GOSUB 1 000 i PRINT : PRINT "INSE 
RI RE IL DISCO DESTINAZIONE E 
PIGIO < RETURN) " 

GET W$:IF W$ = "" THEN GOTO 124 
O 

GOSUB 1050: IF C0=1 THEN RETUR 
N 

FOR C=i TO S4 : TEMPM ( C ) =D0S)4 < C 
JlNEXT C 

FILE*="C-64 WEDGE " ! I =64 : GOSUB 
1050 ì REM URITE C-G4 WEDGE 
RETURN 
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Registrate il mio abbonamento annuale a Commodore. 

□ Ho versato oggi slesso il canone di Lire 20,000 a mezzo c/c postale no 30426209 intestato a: 
Sinclair Computer - V ie Famagosta, 75-20142 Milano 

□ Accludo assegno per lire 20,000 banca — . — — n o — a favore di 

Sinclair Computer 

Il mio computer è: uno ZX81 □ uno Spectrum Q altro (specificare) — — — — — — - 

Ho □ / non ho □ la stampante, ma voglio □ comprarla. 

Preferisco programmi di gioco □ f didattici □ . d'utilità □ T altro - — — » - 

Nome __ * — — 

Via . n* — CAP. MIMI Città 

Te1._ __ « Orano , 

Registratemi tra \ collaboratori regolari di Commodore. 

A titolo dì provavi invio un articolo e la cassetta col programma H — 

_ _ " di cu i vi g arant isco I as so! uta origi nal ita au tori zza nd ovene I a pubbli cazi one . 

Por il compenso □ telefonatemi al □ Scrivetemi all'indirizzo sotto! ndi calo. 
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FINALMENTE. 

LA TAVOLETTA GRAFICA A PIENE PRESTAZIONI 
AD UN PREZZO ACCESSIBILE A TUTTI 




La tavoletta grafica KOALA è la più simpatica innovazione nel campo dei persona 
computers. Con KOALA, controllate il vostro computer con un dito. Più veloce 

di un paddle, più versatile di un joystick e più 
semplice di una tastiera. 

La tavoletta grafica KOALA è compatibile 
con la maqqior parte di software esìstente 
e viene fornita completa 
dei suo programma 
grafico "Micro lllustrator". 

KOALA-PAD è il miglior 
modo per creare 
immagini ad alta 
risoluzione con il vostro 
computer. 


COMPUTER GRAPHICS DIVISION 
MILANO: Vio l. do Vinci, 43 - 20090 Trezzano S/N 
Tel. 02/4455741/2/3/4/5 - Tlx: TELINTI 312827 
ROMA: Via Sobrio, 1319-00138 forno 
Tel. 06/691 7058-691 931 2- Tlx, TINTRO 1 614381 



